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• Vadras, un mundo 
hostll de boteiias 
asesicas amenaza 
con destruir el 
pequeno y simpatico 
pais de las esferas. 
Solo tu tienes 
la posibiiidad 
de impedirselo 
con los t uoos que 
ponemos a tu alcance. 
iSuerte en la mision! 
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Lo* poke* yl 
las clave* dmi 


Descubrimos todos los misterios 
del inspector Gadget, 
y te lo presentamos uno a uno 
para que puedas enfrentarte 
a tu enemigo Max 
Si eres gadgeto-inteligente. 
estamos seguros que 
aprovecharas la oportunidad que 
te presentamos 


Cacliivaches, Lo Nuevo, Al Pie del 
Canon . algunas de las razor.es 
evidentes para adquirir y disfrutar de 
un verano con MICROMANI* 
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the AMSTRAD 

Representante para Argentina, Chile, 
Uruguay y Paraguay, Cia. Americana de 
Ediciones, S.R.L. Sud America 1.532. Tel.: 
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l Z80 dispone de una potente posibilidad que es la de manejar 
interrupciones, el Amstrad CPC poseedor de este microprocesador. 
puede tambien utilizarlas y producir efectos que recuerdan la 
multitarea. Para explicar como funciona esta extraha cualidad hemos 
escogido como ejemplo la implementacion de un reloj, con cinco 
alarmas programables. 

Dentro del mundo algo mas profesional, que siempre supone el PC, 
ha pasado por nuestra redaccion un disco duro con una excelente 
capacidad, 20 Megas, y unas muy buenas prestaciones. Analizamos a 
fondo este periferico, y ademas, por si usted es una manitas, le 
proponemos todas las instrucdones para su montaje. 


AMSTRAD Semanal no se hace 
necesariamente solidaria de las opiniones 
vcrtidas por sus colaboradores en los artfculos 
firmados. Reservados todos los derechos. 
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Krotel 850905 

Amplie la memoria de su 

PC o compatible 


Si la memoria de su 
ordenador se le queda corta, la 
firma PahlData le ofrece la 
posibilidad de ampliar la con su 
tarjeta multifuncion Krotel, 
850905 la cual esta destinada a 
los IBM PC/XT y, como dice 
en su folleto de presentacion, a 
sus verdaderamente compatibles. 
La tarjeta utiliza un solo slot de 
conexion, y aporta al equipo: 

— Ampliacion de memoria. 

Permite anadir al 
ordenador desde 64 hasta 
385 K a voluntad del usuario. 
Para ello, PahlData 
tiene kits de ampliacion 
de esta cantidad de 
memoria, por lo 
que el cliente 
podra 

disponer de la cantidad justa, 
o mas aproximada que 
requiera, hasta las 384 K 
finales. 

La ampliacion de memoria 
posee chequeo de errores, y 
junto con la memoria de la 
umdad central del ordenador se 
alcanzan las 640 K Esta es la 
maxima memoria que el sistema 
reserva para aplicaciones de 
usuario 

— Dos puertos de 
comunicacion RS-232. Ambos 
son accesibles desde el panel 
posterior del ordenador, una vez 
instalada la tarjeta. Son 
totalmente compatibles con el 
Adaptador de Comunicaciones 
Asmcronas de IBM en sus dos 
posibles configuraciones (COM1 
y COM2 respectivamente), y 


por tanto, pueden utilizarse con 
cualquier programa de 
comunicaciones estandar, 
disenado para usar con modens, 
impresoras serie, plotters, etc. 

— Reloj tiempo-real. El 
reloj tiempo real provisto de 
baterfa de mquel-cadmio tiene 
permanentemente actualizadas 
hora y fecha, aunque el 
ordenador este apagado 

El programa Clokpahl, 
incluido en el disquete que se 
suministra con el equipo, 


permite al inicializar el equipo 
(Power On o Ctrl-Alt-Del) carga 
la fecha y hora actualizadas en 
el sistema, para posteriores usos 
de este. 

Junto a estas funciones 
hardware se ofrecen con la 
tarjeta el siguiente software 

— Clokpahl. Sirve para 
utilizar el rejol mencionado 
anteriormente. Visualiza la hora 
y la fecha del reloj, sincroniza el 
sistema con el, y posibilita, si 
fuera necesario, el cambio de 
hora y fecha. 

— Rampahl. Su funcion 
consiste en emular a las 
umdades de disco RAM. Estas 
pueden ser definidas por el 
usuario. Segun sus diseiiadores, 
aumenta la velocidad de 
ejecucion de todos los 
programas que utilizan 
frecuentemente las unidades de 
disco. 

— Spahl. Software de spool 
de impresora. Su utilizacion 
elimina tiempos de espera, y 
permite definir el tarnano del 
buffer de memoria de la 
impresora. 

Para mas imformacion, 
dirigirse a: PahlData, S.A. 

C/ Salcedo, 7. 28034 Madrid. 
Tel.: 729 37 22 
Telex 48941 PAHL-E 



HA EMPEZADO 
LA DISTRIBUCION 
DEL Z88 

Por fin, tres meses despues 
de ser anunciado, ha 
empezado la distribution del 
ordenador portatil Z88 de Sir 
Clive Sinclair. 

Sinclair comunicd que el 
reparto empezd el sdbado 
pasado y que la enfrega de 
pedidos e star a al dia dentro 
de dos semanas. Esta 
declaration podria significar 
que la larga espera de los 
clientes que encargaron el 


Z88, bien a troves la Which 
Computer Show, o bien a 
traves del eiemplar de marzo 
de algunas revistas, esta a 
punto de terminar. 

El Z88 no ha logrado 
mantener las fechas de 
distribution organizadas, y Sir 
Clive Sinclair ha explicado que 
la gran variedad de problemas 
que se le han presentado ha 
oscitado desde errores en el 
software a demoras en la 
aprobacion ofictaf del modem. 
Este asunto del Z88 le ha 
costado, tanto a Sir Clive, 
personaimente, como a su 
compahia, Cambridge 


Computers, una considerable 
cantidad de duras cri'ticas de 
todo el pais, por lo que no se 
puede decir que el genio Sinclair 
haya vuelto con buen pie al 
mundo de la microinformatica. 

RUMORES S0BRE 
UNA NUEVA VERSION 
DE PCW 

Locomotive Software ha 
dejado bien claro que 
Locoscript 2, la nueva 
version del procesador de 
textos que en la actualidad 
sale al mercado junto a los 
Amstradi PCW8256 y 
8512, no acompaiiard a 
ninguno de estos dos 
ordenadores; es decir, que 
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Seguridad para los 

El Drive TD-440-E es el 

nuevo producto que acaba de 
lanzar al rnercado 3M Espana, 
empresa subsidiana de la 
multinational estadounidense 
3M Company, la misma de la 
cinta en cartucho Data 
Cartridge o Cinta Streamer. 

El TD-440-E es un sistema en 
el que se unen en una misma 
unidad fisica, las funciones de 
un back-up para disco duro, 
con los maximos adelantos en 
este tipo de sistemas de 
seguridad, y la posibilidad de 
grabar en una cinta de hasta 40 
Mb, de manera que la cinta 
puede utilizarse como una copia 


seguiran facilitando la version 
antigua. 

Esta declaration ha 
despertado especulaciones en 
torno a que Amstrad esta 
pianteando sustituir en otoho 
los PCW8256 y los 8512 
por una nueva version 
meiorada, rumor que se ha 
acrecentado gracias a las 
dedaraciones de un portavoz 
de Amstrad, quien ha 
manifostado que: «Locoscript 
1 se seguird vendiendo con 
todos los ordenadores PCW, a 
menus que se lance un nuevo 
ordenador*. 

locosctipt 2, cuyo 
lanzamiento tuvo lugar 
algunas semanas atrds, sera 
distribuido por Gem 


discos duros 

de seguridad del disco duro de 
40 Mb o en dos de 20 Mb. 

La configuration de este 
nuevo aparato de 3M incluye 
un cable de conexion, una 
tarjeta de expansion, una puerta 
de diskettes y el software, que 
ha sido desarrollado por ADIC, 
con los manuales de utilization. 
Su precio, segun fuentes de 3M 
Espana, depende un poco de 
cada uno de los comerciantes, 
pero estara alrededor de las 
230.000 pesetas, 

Para mas information pueden 
dirigirse a 3M Espana, S. A., 
calle Josefa Valcarcel, 31, 28027 
Madrid. Tel. 742 00 12. 


Distribution y tendra un precio 
de 20 libras. 

IAS CONSOLAS SEGA 
YA ESTAN A LA VEN1A 

Las consolas de videojuegos 
Sega se encuentran a la venta 
en Gran Bretaha desde hace 
algunas semanas. A pesar de 
que la presentation official de 
estas consolas no esta prevista 
hasta el proximo PCW Show 
de septiembre, Mastertronic 
—distribuidora en exdusiva de 
Sega— ha suminisfrado a las 
tiendas una buena cantidad de 
estos ordenadores, asi como 
de todo el software que hasta 
ahoro se encuentra disponible 
para ellos. 


Entrega 
de los premios 
del Concurso 
Arkanoid 
a su ganador 

El pasado dia 10 de julio se 
hizo entrega, en El Corte Ingles 
de la calle Preciados, de los 
premios del concurso de ambito 
national basado en el celebre 
juego Arkanoid. El ganador, 
Carlos Cerda de Paz, de 21 
anos de edad y residente en 
Madrid, lo hizo con la version 
para Amstrad del juego, y logro 
el muy importante marcador de 
1.049.000 puntos. A pesar de la 
considerable puntuacion, esta es 
s61o un indicativo del nivel de 
este participante, ya que en las 
bases del concurso se indicaba 
que el ganador seria aquel que 
llegara a la fase, o pantalla, mas 
alta del juego. Carlos logro 
llegar al final. 

Preguntado a cerca de que 
fase, o fases, le paretian mas 
dificiles del juego, el destacado 
ganador nos contesto que «le 
habfan parecido especialmente 
dificiles la 25 y 26». Lo curioso 
del asunto es que el afortunado 
ganador no queria concursar, y 
fueron sus familiares quienes 
hecharon la inscription para 
poder participar 

Vayan desde aquf nuestras 
felicitaciones para Carlos, y que 
disfrute la maquina «de verdad» 
del Arkanoid, asf como de los 
10 juegos y bolsa de deporte, 
camiseta incluida, cedidas por 
Erbe Software. 
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Todos sabemos que nuestro Amstrad es capaz de generar interrupciones, 
pero por lo general no todos conocen su funcionamiento. En este articulo 
reahzaremos una aproximacion a este interesante asunto, utilizando un tema 
ya cast mas topico que clasico: la implementation de un reloj al que hemos 
incluido, como novedad, nada mas y nada menos que cinco alarmas. 


Desde el momento en que encendemos 
nuestro Amstrad, el microprocesador empieza a 
ejecutar un programa escrito en lenguaje 
Maquina, contenido en la ROM, que es el que 
nos permite acceder al lenguaje Basic y, por lo 
tanto, trabajar con el ordenador. 

Ademas, el microprocesador se encarga de 
detener este programa principal a intervalos 
regulares, marcados por el reloj interno, para 
realizar una serie de tareas secundarias como 
pueden ser leer el teclado, controlar el sonido, 
manejar el parpadeo de los colores en la pantalla, 
etc. 


A este proceso de interrumpir un programa 
principal, para ejecutar una rutina secundaria a 
intervalos regulares, se le denomina 

Interrupcion. 

El programa principal puede ser tanto un 
programa realizado en Basic como uno en 
Codigo Maquina. La unica diferencia entre 
ambos tipos es la elevada velocidad con que se 
ejecutan las interrupciones en Codigo Maquina, 
dandonos la sensacion de que en realidad se estan 
ejecutando varias tareas a la vez. 

Cuando se genera una interrupcion, el proceso 
principal se abandona temporalmente, guardando 
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A la vez que ejetutamos 
nuestros pmgramas, 
disponemos de un relo/ ton 
onto alamos ptvgramables 


todas sus variables, y se pasa a realizar las tareas 
secundarias. Cuando estas hayan finalizado, se 
reanuda la ejecucion de la tarea principal en el 
punto donde se habia dejado. 

Desde el Basic se pueden generar 
interrupciones mediante los comandos Every o/y 
After, pero tienen el inconveniente de que solo 
se ejecutan cuando corremos el programa, al 
contrario que desde el lenguaje Maquina, en el 
que a partir de que las activemos se estaran 
ejecutando hasta que realicemos la operacion 
contraria. 

Un ejemplo muy claro de como funcionan las 
interrupciones es creando un reloj en la pantalla 
totalmente independiente del programa que resida 
en memoria; tambien se puede encontrar otro 
ejemplo en el programa publicado en esta misma 
revista, en el numero 95, que servfa para crear 
un buffer de impresora. 


Mundo del 

CPC 

Con este programa, ademas de disponer de un 
reloj tenemos acceso a cinco alarmas 
programables. 

El manejo es muy sencillo, gracias a la 
creacion de una unica RSX que controla todas 
las acciones del reloj. 

Para poner en marcha y en hora el reloj, basta 
con la orden: 

lRELOJ,h,m 

en la que «h» es la hora del dia, que debe estar 
comprendida entre 1 y 24, y «m» son los 
minutos, que estaran entre 0 y 59. Es muy 
importante que ambos parametros se ajusten a 
estos valores, ya que la rutina no comprueba si 
los valores que se le dan son admisibles o no. Si 
al poner en funcionamiento el reloj nos hemos 
equivocado en algo, para corregirlo basta con 
volver a ejecutar la misma orden corrigiendo el 
valor erroneo. 

Desde este instante el reloj esta funcionando, y 
para comprobarlo bastarfa con ejecutar: 

I RELOJ 


PROGRAMA CARGADOR 


10 'AHSTRAD SEHANAL J.C.P. 

20 MEHORY &3FFF:n=&A000 
30 FOR 1=1 TO 33:FOR j=l TO 101READ 
a$: b=VAL( "P'+aD: sto=sco+b: POKE n, 
b:n=n+i:NEXT 

40 READ 5; IF sOsco THEN PRINE'ERRO 
R en lineal”;ill0+50:STOP 
50 sco=01 NEXT 

60 DATA 01,C9,A0,21,i4,A0,C3,Dl,BC, 
or 9B C ; 

70 DATA A0,C3,18 t A0,52,45,4C,4F,CA, 
00, 1047 

80 DATA 00,00,00,00,FE,00,28,59,FE, 
02, 639 

30 DATA 28,2F,FE,03,20,23,DO,7E,04, 
FE, 1016 

100 DATA 05,30,1C,5F,07,83,5F,16,00 
,21, 464 

110 DATA 67,Al,19,DD,5E,02,73,3E, 13 

,93, 955 

120’DATA 23,77,23,00,SE,00,3E,3C,93 
,77, 892 

130 DATA CS,21,4F,A1,06,12,C3,BA,A0 
,21, 1072 

140 DATA 62,Al,CD,35,A0,23,36,3C,21 
,C2, 1053 

150 DATA A0,CD,EC,BC,21,C8,A0,11,CF 
,A0, 1566 

160 DATA 06,81,CD,EF,BC,2i,C2,A0,U 


,32, 1221 

170 DATA 00,01,32,00,C3,E3,80,06,01 
,3A, 732 

180 DATA 7B,Al,A8,32,7B,Al,CD,78,BB 
,22, 1332 

190 DATA 7C,A1,C9,CD,78,BB,ES,3E,07 
,CD, 1501 

200 DATA B4,BB,F5,2A,7C,A1,CD,75,BE 
,21, 1481 

210 DATA 63,A1,4E,3E,19,91,CD,37,Al 
,23, 1026 

220 DATA 4E,3E,3C,91,CD,3A,AS,21,76 
,Ai, 1081 

230 DATA 06,05,F3,CD,BA,A0,FS,FI,CD 
,B4, 1682 

240 BATA. BB,E1,CD,75,BB,C9,7E,23,CD 
,5ft, 1578 

250 DATA BB,10,F9,09,00,00,00,00,OO 
,00, 653 

260 DATA 00,00,00,00,00,00,00,21,65 
,Ai, 295 

270 DATA 35,20,OE,36,3C,28,35,20.08 
,36, 403 

280 DATA 3C,2B,35,20,02,36,18,3A,7B 
,A1, 610 

290 DATA B7,C4,85,A0,3A,66,A1,B7,20 
,26, 1246 

300 DATA 06,05,21,67,61,76,23,67,20 
,05, 689 


310 DATA 23,23,10,F7,C9,3A,63,A1,BE 
,20, 1074 

720 DATA F5,23,3A,64,A1,BE,20,EF,2E 
,28, 1146 

330 DATA 36,00,3E,01,32,66,A1,C9,06 
,00, 637 

340 DATA C5,01,10,7F,ED,49,3E,4B,ED 
,79, 1146 

350 DATA 3E,17,CD,IE,88,Cl,20,08,10 
,EC, 992 

360 DATA 3E,07,CD,5fi,BB,CS,AF,32,66 
,A1, 1240 

370 DATA C9,11,76,Al,06,FF,04,06,0A 

,02, 1196 

380 DATA 3C,fll,4F,3E,30,80,12,13,79 

,C6, 894 

390 DATA 3A,12,13,13,C9,4F,72,64,65 
,6E, 819 

400 DATA 20,69,6E,63,6F,72,72,65,63 
,74, 1001 

410 DATA 61,2E,0A,00,00,00,00,00,00 
,00, 166 

420 DATA 00,00,00,00,00,00,00,00,00 

, 00 , 0 

430 DATA 00,00,00,00,00,00,3A,00,00 
,00, 58 

440 DATA 00,00,00,00,00,00,00,00,00 

, 00 , 0 
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Asi se gestionan 
las interrupciones 


Para crear una interrupcion 
desde Codigo Maquina se 
pueden utilizar las 
facilidades que nos ofrece 
el sistema operativo del 
Amstrad. Lo primero que 
tenemos que hacer es crear 
la interrupcion mediante la 
llamada: 


CALL &BCEF 

que necesita los siguientes 
parametros en los registros: 

En HL hay una zona de 
siete bytes que sirven para 
la gestion interna de la 
interrupcion, que contiene 
el tipo de interrupcion asi 
como una direccion de 
referenda. 

El B contiene la dase del 
suceso, este byte esta 
compuesto por los 
siguientes parametros: 

BIT 0. Si vale cero quiere 
decir que pertenece a 
una ROM del sistema. Si 
vale uno, que la rutina 
se encuentra en la 
RAM. 

BIT 1,4. Estos tres bits 


solo sirven para sucesos y 
son indiferentes para las 
interrupciones. 

BIT 5. Siempre hay que 
ponerlo con valor cero. 

BIT 6. Para una 
interrupcion urgente se 
pone a uno y si vale cero 
quiere decir que es normal. 

BIT 7. Si esta a uno es 
una interrupcion y si vale 
cero es un suceso. 

En C tenemos que poner 
el numero de la ROM si la 
rutina esta en ROM, en el 
caso de que este en la RAM 
no es necesario dar ningun 
valor. 

El DE contiene la 
direccion de entrada de la 
interrupcion que se va a 
ejecutar. 

Una vez que hemos 
creado la interrupcion hay 
que avisar al sistema para 
que ejecute la rutina, esto 
se realiza mediante otra 
llamada: 


que necesita los siguiente 
parametros: 

En HL la direccion de un 
almacenamiento de seis 
bytes para el trabajo 
inferno de la rutina. 

El BC contiene la recarga 
de la cuenta; es decir, el 
tiempo en cincuentavos de 
segundo con la que se va a 
repetir la interrupcion. 

En DE esta la cuenta 
inicial, que al igual que en 
BC esta en cincuentavos de 
segundo, y marca el tiempo 
que ha de transcurrir desde 
que hagamos la llamada 
hasta que se ejecute la 
interrupcion por primera 
vez. 

Si deseamos que la 
interrupcion no se vuelva a 
ejecutar tenemos que hacer 
la siguiente llamada: 


CALL &BCEC 


CALL &BCE9 


que necesita los siguientes 
parametros: 

El HL debe contener la 
direccion del 


PROGRAMA ENSAMBLADOR 
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300 
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310 
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380 
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150 
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CP 

0 
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SUB 

E 
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JR 

Z,NQS 
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190 


CP 

2 

440 

RET 


200 


JR 

Z.HORA 

450 



210 


CP 

3 

460 ERRJ 

.: L0 

HL.ERR 

220 


JR 

NZ.ERR1 

470 

LD 

8,18 

230 


L0 

A,(IX+4) 

480 

JP 

BUCLE 

240 


CP 

5 

490 



250 


JR 

NC.ERR1 

500 KORA 

i: LG 

HL.H0R-I 


510 

CALL ENTRA 

760 

CALL »B6B< 

520 

INC 

HL 

770 

PUSH AF 

530 

LD 

(HL),60 

780 

L0 HL,(CUR) 

540 

L0 

HL.CL0 

790 

CALL IBB75 

550 

CALL IBCEC 

800 

L0 HL.H0R 

560 

L0 

HL.8L0 

810 

L0 C,(HL) 

570 

L0 

0E,EVE 

820 

L0 A,25 

580 

L0 

B. 129 

830 

SUB C 

590 

CALL IBCEF 

840 

CALL RUT2 

600 

L0 

HL.CL0 

850 

INC HL 

610 

L0 

0E.50 

860 

LD C,(HL) 

620 

L0 

BC,50 

870 

L0 A,60 

630 

JP 

ISCE9 

880 

SUB C 

640 



890 

CALL RUT 

650 NOS: 

L0 

B.l 

900 

L0 HL.HEN 

660 

L0 

A,(VIS) 

910 

L0 B,5 

670 

X0R 

B 

920 

01 

680 

L0 

(VIS),A 

930 

CALL BUCLF 

690 

CALL IBB78 

940 

El 

700 

LD 

(CUR),HL 

950 

POP AF 

710 

RET 

960 

CALL IB664 

720 



970 

POP HL 

730 nostra: 

CALL 18878 

980 

CALL IB875 

740 

PUSH HL 

990 

RET 

750 

L0 

A,7 

1000 
















almacenamiento de seis 
bytes facilitados en la 
^ rutina anterior. 

En cuanto se ha 
ejecutado esta orden, la 
interrupcion ya no se 
vuelve a ejecutar mas, a no 
ser que la activemos 
nuevamente. 

Cuando se ejecuta una 
interrupcion, el sistema 
operativo se encarga de 
preservar todos los registros 
para poder continuar, 
cuando esta finalice, con el 
programa principal. 

Tambien hay que tener en 
cuenta que si una 
interrupcion dura 
excesivamente, se puede 
acumular mas trabajo que 
el que puede realizar el 
microprocesador, y se 
puede producir una perdida 
del control de la maquina. 

Hay que destacar que 
mientras se usa el disco o el 
cassette el servicio de 
interrupciones se cancela 
temporalmente, por lo que 
el reloj que os presentamos 
a continuacion se puede 
retrasar, eso si, muy 
ligeramente al usar el disco 
y descaradamente al 
utilizar la cinta. 


Mundo del 


CPC 



con lo que obtendremos en la pantalla el valor de 
la hora y los minutos. 

En el caso de que le interese localizar la salida 
del reloj a una misma coordenada de la pantalla, 
basta con teclear: 


LOCATE x,y:lRELOJ 

y el reloj aparecera en las coordenadas x, y de la 
ventana numero siete; en el caso de que esta 
ventana no este definida, las coordenadas seran 
las correspondientes al total de la pantalla. 


1010 8UCLE: 

LD 

ft, <HL) 

1260 

JR 

NZ,SONAR 

1020 

INC 

HL 

1270 

LD 

M 

1030 

CALL tB65A 

1280 

LD 

HL.DIR 

1040 

DJNZ BUCLE 

1290 Bic: 

LD 

fl,(HL) 

10S0 

RET 


1300 

INC 

HL 

1060 



1310 

OR 

A 

1070 clo: 

DEFS 6 

1320 

JR 

NZ,SAL 

1080 Bio: 

DEFS 7 

1330 vi: 

INC 

HL 

1090 EVE: 

LD 

HL.SE6 

1340 V2: 

INC 

HL 

1100 

DEC 

(HL) 

1350 

DJNZ BUC 

1110 

JR 

NZ,FL 

1360 

RET 


1120 

LD 

(HL),60 

.1370 



1130 

DEC 

HL 

1380 SAL! 

LD 

A,(H0R) 

1140 

DEC 

(HL) 

1390 

CP 

(HL) 

1150 

JR 

NZ.FL 

1400 

JR 

NZ,V1 

1160 

LD 

(HL),60 

1410 

INC 

HL 

1170 

DEC 

HL 

1420 

L0 

A,(HIN) 

1180 

DEC 

(HL) 

1430 

CP 

(HL) 

1190 

JR 

NZ.FL 

1440 

JR 

NZ,V2 

1200 

LD 

(HL),24 

1450 

DEC 

HI 

1210 fl: 

LD 

A,(VIS) 

1460 

DEC 

HL 

1220 

OR 

A 

1470 

LD 

(HL), 0 

1230 

CALL NZ,NOSTRA 

1480 

L0 

A, 1 

1240 

LD 

-A,(ALAR) 

1490 

LD 

(ALAR),A 

1250 

OR 

A 

1500 

RET 



1510 



1760 

LD C, A 

1520 SONAR: 

LD 

B,0 

1770 

LD A,48 

1530 BUCl: 

PUSH 

BC 

1780 

ADD A,6 

1540 

LD 

BC.I7F10 

1790 

LD (DE),A 

1550 

OUT 

(C),C 

1800 

INC DE 

1560 

LD 

A,*4B 

1810 

LD A,C 

1570 

OUT 

(C), ft 

1820 

ADD A,58 

1580 

LD 

A,23 

1830 

LD (DE),A 

1590 

CALL 

IBB1E 

1840 

INC DE 

1600 

POP 

BC 

1850 

INC DE 

1610 

JR 

NZ.FIN 

1860 

RET 

1620 

DJNZ 

BUCl 

1870 


1630 

LD 

A,7 

1880 err: 

DEFH 

1640 

CALL 

*BB5A 

'Drden incorrect* * 

1650 

RET 


1890 

DEF8 10,13,0 

1660 


A 

1900 hor: 

DEFB 0 

1670 FIN: 

X0R 

1910 HIN: 

DEFB 0 

1680 

LD 

(ALAR), A 

1920 SE6: 

DEFB 0 

1690 

RET 


1930 ALAR: 

DEFB 0 

1700 


DE,HEN 

1940 dir: 

DEFB 0,0,0,0,0,0 

1710 RUT2: 

LD 

1950 

DEFB 0,0,0,0,0,0 

1720 RUT! 

LD 

B,»FF 

1960 

DEFB 0,0,0 

1730 ARR: 

INC 

B 

1970 HEN: 

DEFB 0,0,*:*,0,0 

1740 

SUB 

10 

1980 vis: 

DEFB 0 

1750 

JP 

NC, ARR 

1990 cur: 

DEFB 0,0 


A USTRAL) Snnamd 9 
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IRELOJ 


Para programar una de las cinco alarmas de 
las que disponemos, basta con ejecutar un: 

IRELOJ, al,h , m 

donde «al» puede tomar los valores del 0 al 4, 


uno para cada alarma, y «h» y «m» son las horas 
y minutos a las que queremos que nos avise. 

Para «h» y «m» valen las mismas normas que 
para el caso de poner en hora el reloj, con la 
unica diferencia de que si «h» toma el valor cero, 
esa alarma se desactiva. Para corregir una alarma 
sirve esta misma orden, como en el caso de poner 
en marcha el reloj. 

Cuando el reloj llega a una alarma cambia el 
color del borde de la pantalla a bianco y hace 
sonar un «beep», esperando a que desactivemos la 
alarma al pulsar la tecla Control. A partir de 
ahora esta queda desactivada, y se puede utilizar 
para otra alarma. 

Como eargar el Reloj. 

Copiar el programa cargador y ejecutarlo, en 
el caso de que no aparezcan errores se precede a 
salvarlo con la siguiente orden: 

SAVE “RELOJ”,B&A000,&186 

Para ver su funcionamiento deberemos cargarlo 
en memoria de la siguiente forma: 

MEMORI &9FFF: LOAD’ ’ reloj. bin ”, &A000 
y despues hacer: 

CALL&A000 

para tener disponibles las RSX. 

Para los mas curiosos ofrecemos a continuacion 
el listado del programa desensamblado, del que 
estamos seguros sacaran un buen partido. 




















































THESEU 

* 

For Oscar Valladares Martinez 


A finales de nuestra era, en un planeta 
dimensional en algun lugar de nuestro sistema, 
un hombre llamado Amhalet se dispone ha 
finalizar con una amenaza llamada Organizacion 
Zulion, la cual podria ser la causa de la 
destruction de su mundo. 

Tu mision sera el manejar a nuestro heroe en 
dos distintos sectores. En el primero tendras que 
intentar no chocar con las fuerzas del maligno. 

En el segundo tendras que soltar a los tres 
cientfficos que estan encerrados en el templo. Los 
habitantes del sistema confian en ti. 

El programa contiene instrucciones de manejo 
y mision. 


UNEAS 

PARTE 

100-370 

Datos 

380-560 

Graficos 

570-1080 

Pantalla principal 

1090-1550 

Movimiento del juego y 
obstaculos 

1560-1610 

Anula vida 

1620-1910 

Templo 

1920-2010 

Final 

2020-2060 

Game Over 

2070-2460 

Instrucciones 

2470-2540 

Scroll 




VARIABLES 


TECLAX 

desplaza helicoptero 

lllliscro$ 

pinta graficos scroll 

TECLAXX 

desplaza helicoptero 

IViiscro$ 

pinta graficos scroll 

TECLAY 

desplaza helicoptero 

VPiscro$ 

pinta graficos scroll 

TECLAYY 

desplaza helicoptero 

Vlliscro$ 

pinta graficos scroll 

LI 

vidas 

COLUM$ 

pinta columna 

HS 

record 

CCOLUM$ 

pinta columna 

SC 

puntos 

CCCOLUM$ 

pinta columna 

sec 

sector 

SECO$ 

pinta columna 

MTS 

distancia 

LADRI$ 

pinta ladrillo 

SCROLL 

pone en marcha el scroll 

BILADRI$ 

pinta ladrillo 

templo 

indica el templo 

puel $ 

pinta puerta 

FIN 

indica el final 

pue2$ 

pinta puerta 

MEN$ 

grafico 

BACOL$ 

pinta columna 

ME$ 

grafico 

PA1$ 

pinta templo 

Havel 

grafico 

PA2$ 

pinta templo 

Ilave2 

grafico 

PA3$ 

pinta templo 

Ilave3 

grafico 

PA4$ 

pinta templo 

hombreS 

pinta hombre 

PA6$ 

pinta templo 

hombre2 

pinta hombre 

PA7$ 

pinta templo 

hombre 1 

pinta hombre 

PA8$ 

pinta templo 

lliscro$ 

pinta graficos scroll 

PA9$ 

pinta templo 

llliscro$ 

pinta graficos scroll 

PA10$ 

pinta templo 


U 4MSTRAD Srmanal 


































10 '*******t***********t******* 


20 '** T H E S E 0 ** 
30 '** Por ** 
40 'tt Oscar ** 
50 '** Valladares 4* 
60 '** Martinez ** 
70 '** 1987 ** 


80 '** AMSTRAD SEMASAl ** 

90 '*************************** 

100 PASADAA-0 
110 CALL &BC02 
120 HS=0 

130 '*********************** 

140 '* DATOS * 

150 '*********************** 

180 FAPEF 0:PAPER #5.0 

170 TECLAX=66:TECLAXX-66:TECLAY=66:TECLAYY=66 
160 LI=2: 800: HS=HS: seed: MTS-510:SCROLLd: ME 
TROCd:tenplo=0;seed:se=l:F1H=0:despla=0 
190 MES$=CHRS<146)+CHRS(148):MES=CHRS(147> +CH 
R$(149>:llaveld: hombreld 

200 KUVES=CHES< 156) fCUES(157) +CHR$<158): Have 
2=1:hombre2=1:llave3=1:horobre3=1 
210 IIiscro$=CHRS <159)+CHRS(160):111iscroS=CH 
KS(32 > 4 CURS <161> +CHRS(162)+CHRS <163)+CHRS(164 

i 

220 IIIIlscrD$=CHKS(165)+CHRS<166)+CHRS<169)+ 
CFRS(170>+CHRS<171) 

230 IV1iscro$=CHRS <167HCURS <166)+CHRS<172 > +C 
HRS <173)+CHRS <174 > 

240 VIiscroS=CHRS<175)+CHRS<176)+CHKS<177)+CH 
RS(178)+CHRS(179) 

250 VIliscro$=STRIKG$(11,180) 

260 COLUM$=CHR$(189)+CHRS<190)+CHKS(191):CCOL 
UMS=CHRS(32)+CHRS<193):CCC0LUKS=CHR$<194)+CHR 
$(195)+CHRS(196) 

270 SECGS=CHRS(190)+CHRS <191):LADRIS=CHRS(197 
):BILADRIS=CKRS <197)+CHRS<197):pue1S=CERS<127 
>: pue2S=CIIRS< 127): BACOLS=CHRS< 192) 

280 PAl$=SErO$+” "1COLUMS+LADRIS+” "+BILADRI 
$ 

290 PA2S=BAC0LS+LADRIS +BILADRIS+LADRIS+BACOLS 
f "IPUE1S+" "+LADFIS 

300 PA3S=BACOLS4 M "4BACOLS+BILADRIS+LADRIS 

+PUE2S+LADRIS 

310 rA4S=BACOLS+'* "-‘LADRIS+BILADRIS+BACOLS+BI 
LADE IS4-” "+LADEIS 

320 PA5S=BACOLS4" -+BILADF1S+LADRIS+" "+BI 

LAPRIS 

330 P A6S=B ACOLS+B1L ADR IS +*’ “+LADRIS 

340 PA7S=BACOLS +" "4BILADFIS+” "+BILADRIS+PUB 
2S4LADR1$+PUE2S+LADRIS 

350 PA8S=BACOLS+” "+LADRIS+" ,, +LADRIS+ M *'+L 
APRIS+" "4LADRIS 

360 PA9S=BAC0LS+" ”+PUElS+" ”(LAPPIS4” ”+LAD 
RIS+BILADRIS+LAPFIS 

370 PA10S=BILADRIS+BILADRIS+" "+BILADRIS+BILA 

DFIS+BILADRIS 

380 '******************** 

390 '* SYMBOLS * 

400 '******************** 

410 SYMBOL AFTER 32 

420 SYMBOL 209,255,255.231,195,195,231,255,25 
5: SYMBOL 165,1,3,7,15,25.57,127,255:SYMBOL 16 
6,126.192,224,240,152,156,254,255: SYMBOL 187, 
255,127,57.25,15,7.3,1:SYMBOL 188,255,254,156 
,152,240,224,192,128: SYMBOL 129,0,148.146.146 
,146,145,209,0 

430 SYMBOL 130,0,91,82,154,147,17,27,0:SYMBOL 

131,0.219,146,146,210,82,219,0:SYMBOL 132,0, 
179,170,179,170,170,171,0:SYMBOL 133,0,168,16 
6.235.166,166,168,0:SYMBOL 134,0,54,36,164,52 
,20,54, 0; SYMBOL 141,0.115,66,67,114,18,115,0 
440 SYMBOL 142,0,156,16. 16,16,16,156, 0:SYMBOL 
144,0,139,216,171,136,138.139,0: SYMBOL 145,0 
,177,41.37,35,33.161,0:SYMBOL 146,255,126,128 
,126,126,128,126,126:SYMBOL 147,128,126,128,1 
28,126,126,126,255:SYMBOL 146,255,1,1,1,1,1,1 
.1 

450 SYMBOL 149,1,1,1.1.1,1,1,255:SYMBOL 152,0 
.15,17.255,151,136,51,51; SYMBOL 150,0,15,16,2 
41,141,131.219,24:SYMBOL 151,0,126,64,32,223, 
129.219,24:SYMBOL 153.0,69,108,64,66,66,69.0: 
SYMBOL 154,0,247,66.66,71,65,87.0:SYMBOL 155, 
132,0,41,0.146,0.36.129 

460 SYMBOL 156,1.6,24,34,44. 16,1,0:SYMBOL 157 
,34.213,4,2,0,17.110,126: SYMBOL 158,166,76,34 
,69.193,34,26,0:SYMBOL 159,0,0,4,14,31,63,127 
,127: SYMBOL 160,0,0, 0.0, 0,0, 0,126: SYMBOL 161, 
0,0,20,42,65.0.1. 1: SYMBOL 162,0,0,1.2,5.196,2 
33,111 

470 SYMBOL 163,106,253,122,164,69,170.61,138: 
SYMBOL 164,128,128,128,128,64.192,64,224: SYMB 
OL 165,0,0, 0,0, 0,1,1,2: SYMBOL 166,1,1.1.3,2,3 
, 198, 203: SYMBOL 167,3,3,5,5,5,6,13.10: SYMBOL 
168,77,137,154,177,90,161,95.167:SYMBOL 169,2 
14,106,173,90,160,90,174,68 

480 SYMBOL 170, 160,9,170,0,36.136,32,136:SYMB 
OL 171,32,40,44,52,20,24.140,12; SYMBOL 172,17 
2,26,232,41,212,98,166,69:SYMBOL 173,160,16,6 
4,16,162,0,60,32: SYMBOL 174,36,64,6,16,16,6,3 
6,4: SYMBOL 175,21.106.171.85,175.91.171,167 
490 SYMBOL 176,90,183,67,87,216,183,91,190: SY 
MBOL 177,162,72,146,66,160,2,72,10: SYMBOL 176 
,0,160,0,192,6,128,0,127:SYMBOL 179,4,6,3,65, 
161,17,1,159:SYMBOL 160.32,48,120,248,120,32, 
35,220:SYMBOL 161,9,38,23,175,95,63.191,63 
500 SYMBOL 162,127,191,63,143, 103,64, 34, 0: SYM 
BOB 183,64,146,224,234,244,250,246,250:SYMBOL 


164,252,248,242,240,196,144,32,0 
510 SYMBOL 189,255,255,42,21,10,5.2.1:SYMBOL 
190,255.255,82,82.82,255.255:SYMBOL 191,255,2 
55,84,166,80,160,64,128:SYMBOL 192,219,219,21 
9,219,219,219,219.219 

520 SYMBOL 193.219.219.219,219.219,219,255,25 
5: SYMBOL 194,1,2,4,15,16,127,255,255:SYMBOL 1 
95.0,255,0,255,0,255,255,255: SYMBOL 196,12S,6 
4,32,240,8,254,255,255 

530 SYMBOL 197,0,255,255,255,255.255,255,255: 
SYMBOL 198,0,254,254,254,254,254,254,254: SYMB 

OL 199.126,16,48,69,207,56,16,60:SYMBOL 200,5 
6,16.48,73,223,48.16,60 

540 SYMBOL 201,126,8,12,154.243.12,6,60;SYMBO 
L 202,28,6,12,154,243,12,6,60:SYMBOL 203,48,1 
78,164,120,46,46,72,204:SYMBOL 204,16.40,40,1 
6,24.16,26,16:SYMBOL 205,16,16,16,224,126,126 
, 183.48:SYMBOL 206,16,16,16,8,63,1,183,46 
550 IF PASADAA=1 THEM 600 
560 GOTO 2110 

570 '************************ 

580 '** PARTALLA PRIMCIPAL ** 

590 '***#:m***************** 

600 MODE 0 

610 IMK 0,3:BORDER 3 

620 FOR f=4 TO 22: LOCATE 7,f:PEH 6:PRIST CHRS 
(143)-.LOCATE 19,f: PRIST CHRS<143):SEXT 
630 LOCATE 8,2: PRUT STRIHGS<11,143) : LOCATE 8 
,3: PRIST STFISGSdl, 143) 

640 LOCATE 8.23:PRIST STRIHGS<11,143):LOCATE 
8.24: PRIST STRISCS(11,143) 

650 LOCATE 7,2:PRIST CHR$<214):LOCATE 19,2;PR 
1ST CHRS(215) 

660 LOCATE 7,24:PRIST CHRS<213>:LOCATE 19,24; 
PRIST CHR4(212) 

670 LOCATE 7,3:PRIST CHRS<209):LOCATE 19,3:PR 
1ST CHRS(209) 

680 LOCATE 7,23:PRIST CHRS<209>:LOCATE 19,23: 
PRIST CHRS(209) 

690 PLOT 226,45,2:DRAV 574,45:PLOT 226,47:DRA 

V 574,47 

700 PLOT 220,45:DRAV 220,350:PLOT 220,382:DRA 

V 574,382 

710 PLOT 224,383:DRAV 574,363:PLOT 574,383: DR 
AV 606,368 

720 PLOT 606,368:DRAV 606,32 

730 FOR f=3 TO 6;LOCATE 2,f:PES 8:PRIST CHRS< 

143):LOCATE 5,f:PRIST CHFS(143>: SEXT 

740 LOCATE 3,2:PRIST CHRS<143)+CHRS(143) 

750 LOCATE 3,7:PRIST CHRS<143)+CHRS<143) 

760 FOR fdO TO 23:LOCATE 2, f:PRIST CHR$<143) 

:LOCATE 5.f:PRIST CHRS<143):SEXT 

770 LOCATE 3,9:PRIST CHRS<143)+CHRS<143) 

760 LOCATE 3,24: PRIST CHRS<143)+CHRS<143) 

790 LOCATE 2,2:PRIST CHRS<185):LOCATE 5.2:PRI 
ST CHRS(186):LOCATE 2,9: PRIST CHRS<185):LOCAT 
E 5.9:PRIST CHR$<186) 

600 LOCATE 2,7:PRIST CHRS<187>:LOCATE 5.7;PRl 
ST CHRS(IBS):LOCATE 2,24:PRIST CHRS<187):LOCA 
TE 5,24: PRIST CHRS(18B> 

610 PLOT 160,32:DRAV 160,256,2:PLOT 160,256:D 
FAV 128,272 

620 LOCATE 3,3:FES 13:PRIST CHRS<141)+CHFS<14 
2) 

830 LOCATE 3.10:PEB 13:PRIIT CHRS<144)+CHRS<1 
45) 

640 LOCATE 3,12:PEK 6:PRIST MESS:LOCATE 3,13: 
PRIST MBS 

850 LOCATE 3.15:PRIST MESS:LOCATE 3,16:PRIST 
MES 

860 LOCATE 3,16:PRIST MESS;LOCATE 3.19;PRIST 

MES 

870 LOCATE 3,21: PRIST MESS:LOCATE 3,22:PRIST 
MES 

880 PLOT 128,272: DRAV 64,272:PLOT 60.32:DRAV 

60,256 

690 PLOT 60,30:DRAV 124,30:PLOT 60,28: DRAV 12 
4,28 

900 VISDOV 16.6,4,22:PAPER 5:CLS:VISD0V 20.1, 
1,25 

910 VISDOV #5,4,3,3,6 

920 LOCATE 9,4:PEI 6:PRIST CHRS<131)+CHRS<132 


Serie 


OK3 

930 LOCATE 13, 4:PE* 9:PFI*T CHRS( 133>+CHK*(13 
4) 

940 LOCATE 16. 4 : PEA 12:PF1AT CHE*(129HCHS*(1 
30) 

950 LOCATE B,22:PEA 9:PF1*T CHF*<153)+CHR*<15 
4>+CHK$(61> 

960 LOCATE 6.5: PEA 10:PFIAT (EC):LOCATE 12.5 
PRIAT (HE):LOCATE 15.5:PBLAT (LI):LOCATE 11.2 
2:PEI AT (KTS>i"nt" 

970 L0CATEA5,1.3: PEB *5,10 PFIAT #5, (ERC) 

960 WIADOV #4,16, 6.6,16: PAPER #4.10:CLS #4 
990 LOCATE #4,1,6:PEB #4,2:PHIIT #4. AWES: LOC 
ATE ,4,4.6: PEA M,6::PFIAT #4,Iliscro» 

1000 LOCATE #4,4,4:PEA #4.2: PFIAT #4,AUYBS: LO 
CATE #4,9,3:PFIAT #4.AUVE*.PEA #4,6:L0CATE #4 
,1,7:PFIAT #4,IIIiscrol 

1010 LOCATE #4,1,6:PFIAT #4, 111llscrol:LOCATE 
#4,1,9: PEI AT #4.miscroJ. 

1020 LOCATE #4,1,10:PFIAT #4,tllscrot 
1030 LOCATE #4.9,6:PF1AT #4,IliseroS: LOCATE t 
4,6,7: PFIAT #4, I Ulscrol: LOCATE #4,6,6;PRIAT 
#4,IIIliscroS:LOCATE #4,6,9;PFIAT #4,IVllscro 
*:LOCATE #4.6,10: PFIAT #4,Vllscro* 

1040 LOCATE #4,1,11:PEA #4,9:PFIAT #4.tlllscr 
o$; 

1050 LOCATE #4, 1,2: FES #4,1: PRIST #4,CHRS<161 
)+CHRS<183):LOCATE #4.1,3:PRIST #4,CHR$<182) + 
CHRS<184) 

1060 PLOT 160,304,2:DRAV 160. 366:PLOT 160,366 
:DRAV 128.382 

1070 PLOT 126,382:DRAV 64,362:PLOT 62,366:DRA 

V 62,300 

1060 PLOT 62.300:DRAV 126,300:PLOT 62,302:DRA 

V 126,302 

1090 '************************ 

1100 '* MOVIMIESTO JUEGO Y * 

1110 '* OBSTACULOS * 

1120 '****m***************** 

1130 FOR OBSTACUdB TO 22 

1140 SUXB0BSTA(0BSTACU-17>=16:HEXT 

1150 X-19 

1160 DEF FS point(y, x)-TEST((y*32)-2,(401-x*l 

1170 IF IHKEY(0>=0 AID seed THEI X=X-1: IF X< 
17 THE! Xd7 

1160 IF IMKEY<2)=0 AID seed THEM X=X+1: IF X> 
21 THEI X=21 

1190 IF IIKEY<27)=0 THEI 1950 

1200 IF I5KEY(TBCLAX)=0 THES Y=Y-l:se=l 

1210 IF IIKEY<TECLAXX>=0 THES Y=Y+l:se=2 

1220 IF IKKEY(TECLAY)=0 THEI X=X-1 

1230 IF I1KEY(TECLAYY)=0 THEI X=X+1 

1240 IF SCROLLd THEI CALL 17000 

1250 re=FI point<y,x) 

1260 IF METROSd THEI MTS=MTS-1:LOCATE 11,22: 
PEI 10: PRIST (MTS) 

1270 IF SB02 THEI SOUID 1,3000,4,15 
1280 IF tenplod) THEI SOUID 2,2500,40,10 
1290 IF sec=l THEI PEI 1:LOCATE 8,x:PRIST CHE 
S< 150);-.LOCATE 9,X:PRIST CHRS<151>; 

1300 IF sec=2 AID sed THEI PEI 1: LOCATE y.x: 
PRIST CHR*<199);:LOCATE y.x:PRIST CHRS(200); 
1310 IF sec=2 AID y>14 AID *>=17 THEI y=14:x= 
x 

1320 IF sec-2 AID ee=2 THEI PEI 1:LOCATE y.x 
:PRIST CHRS(201);: LOCATE y.x:PRIST CHRS(202> 
1330 IF sec=2 AID y<=9 AID *>=17 THEI y=9:x=x 
: LOCATE 6, x: PRUT" ” 

1340 IF sec=2 AID x>=21 THEI *=21: LOCATE y,22 
: PRIST” *’ 

1350 IF TEKPLO=0 THEI PEI 2: XYOBSTAd+I«T(RID 
*5) 
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1360 PEN 3 

1370 IF TEMPLO=0 THEN IUXEOBSTA <IYOBSTA) -ITJXE 
OBSTA < XYOBSTA) -1: LOCATE IUXEOBSTA ( XYOBSTA), XT 
OBSTA+16;PRIIT CHR*<152);" " 

1360 IF IUXEOBSTA(XYOBSTA)-9 AID XYOBSTA+16=x 
THEI LI=LI-1:LOCATE 15.5:PEI 10: PRIIT (LI):E 
IV 2,1,14.1.10, -1,20:SQUID 3,0,0,0.2,0,15:GOT 
O 1590 

1390 IF IUXEOBSTA(XYOBSTA) =8 THEI HUXEOBSTA(X 
Y0BSTA>=16: LOCATE 6. XYOBSTA+16:PRIIT CHR*(32> 
:SC=SC+(1/3):LOCATE B,5:PEI 10: PRIIT CINT(SC) 

1400 IF SC>=HS THEI HS=SC: LOCATE 12,5:PEN 10: 
PRIIT CIITCHS) 

1410 IF XTS=0 THEI SCROLL-0:KETROS-O:TEXPLO-1 
:MTS=-1 

1420 IF re=2 THEI LI=LI-1:LOCATE 15.5:PEI 10: 
PRIIT (LI):BIV 2.1.14.1,10.-1.20:50010 3,0,0, 
0,2.0,15: GOTO 1750 

1430 IF Have 1=1 AID y=12 AID x=9 THEI Havel 
=0: SOUID 1.100,20,15: LOCATE 11,15: PRUT 1 ” : SC 
=SC+10 

1440 IF ho*brel=l AID y=9 AID x=15 THEI h DB br 
el=0:SOUID 1,300,20,15;LOCATE 17.9:PRINT' ";S 
OSC+IO: LOCATE 3.12: PEN 1: PRINT CHK*(143)+CHR 
1(143):LOCATE 3,13:PRIIT CHR*(143)+CHR*(143) 
1450 IF llave2=l AID y=16 AID x=6 THEI llave2 
=0: SOUID 1,100.20,15: LOCATE 15.13: PRINT' 3C 
=SC+10 

1460 IF honbre2=l AID y=14 AID x=15 THEI honb 
re2=0: SOUID 1,300,20.15: LOCATE 15,6: PRIIT' 
SC=SC+10;LOCATE 3,15:PEI 1:PRIIT CHR*(143)+CH 
R*(143): LOCATE 3,16:PRIIT CHR*(143)+CHR*(143) 

1470 IF llave3=l AID y=14 AID x=6 THEN llave3 
=0: SOUID 1,100,20,15: LOCATE 17,13:PRIIT' ":SC 
=SC+10 

1460 IF hoi»bre3=l AID y=l7 AID x=14 THEI honb 
re3=0: SOUID 1,300,20,15:SC=SC+10:LOCATE 3,16: 
PBI 1:PRIIT CHR*(143)+CHRA(143):LOCATE 3,19:P 
RIIT CHR*(143) +CHR*(143) 

1490 IF honbre3=0 THEI 1690 
1500 IF LI=0 THEI 2020 

1510 IF FIN=1 AID y>=8 AID y<ll AID x>=19 THE 
I 1900 

1520 LOCATE 6.5:PEI 10:PRINT CIXT(SC) 

1530 IF tenplo=l THEI tenplo=2: GOTO 1650 
1540 IF sec=l THEI LOCATE 9, X:PRIIT " "rLOCAT 
E 6, r:PRINT’ '':GOTO 1170 

1550 IF sec=2 THEI LOCATE y, x:PRIIT’ ":GOTO 1 
170 

1560 '****************** 

1570 '* ATULA VIDA * 

1580 'tttt***t**t*tttt** 

1590 FOR f=l TO 15: LOCATE 6.X.PEN f: PRINT CHR 
*(155)+CHR4(155):IBXT 

1600 IF PASADA=1 THEI PASADA=0;GOTO 1170 
1610 PASADA=1: GOTO 1590 
1620 '****************** 

1630 '* TEXPLO * 

1640 '****************** 

1650 LOCATE #4.6,4; PEN #4,2: PRIIT #4, COLUX*+C 
DLUX* 

1660 LOCATE #4,5,3:PRIXT #4,STRIXG$(7,197); :L 
OCATE #4.6.2:PRIIT #4,STRING*(6,197);:LOCATE 
#4,7,1:PRIIT #4,STRIIG$(5,197); 

1670 FOR f=l TO 7: LOCATE #4, 7, f+4: PRINT #4,CH 
R*(192):LOCATE #4,10.f+4: PRINT #4,CHR*(192):N 
EXT 


2090 '* MENU PRINCIPAL* 

2100 '***************** 

2110 CLS:INK 0,3:MODE 0:BORDER 3 

2120 PEN 8:LOCATE 1,1:PRINT STRING*(20,143);; 

LOCATE 1,2:PRINT STRING*(20,143); 

2130 LOCATE 1,24:PRINT STRING*(20.143); :LOCAT 
E 1,23:PRINT STRING*(20,143); 

2140 FOR f=l TO 24:LOCATE l.f:PRIXT CHR*(143> 

:LOCATE 20,f:PRINT CHR*(143): NEXT 
2150 LOCATE 1.1:PRINT CHR*(214):LOCATE 20,1:P 
RINT CHR*(215):LOCATE 1,24:PRINT CHR*(213):L0 
CATE 20.24:PRIIT CHR*(212); 

2160 LOCATE 1,2:PRINT CHR*(209):LOCATE 20.2:P 
RINT CHR*(209):LOCATE 1,23:PRINT CHR*(209):LO 
CATE 20,23:PRINT CHR*(209); 

2170 VIXDQV #2.19,2,3,22:PAPER #2,5:CLS #2:PA 
PER #2,0 

2160 PLOT 32,42:DRAW 610,42.2:PLOT 32,44:DRAW 
610,44:PLOT 31,42:DRAV 31,368:PLOT 32,396:DR 
AV 608,396:PLOT 32,398:DRAV 606.398:PLOT 608. 
398: DRAW 640,382: PLOT 639,382:DRAW 639,32 
2190 DEG 

2200 PBI 4:LOCATE 1.25:PRINT "THESEU”: INK 4,3 
2210 FOR n=l TO 169:FOR n=0 TO 15 
2220 ORIGIN 0,0: IF NOT TEST(»,n)=0 THEN GGSUB 
2240 

2230 NEXT:NEXT: GOTO 2250 
2240 ORIGIN 32.300: PLOT 3*X,3*X,13:RBTURI 
2250 PAPER 5:LOCATE 8.6: PEN 2:PRIIT’Por": LOCA 
TE 7,9;FBI l:PRIIT’Oscar M : LOCATE 4,10; PBI 10: 
PRIIT"Valladares." 

2260 PAPER 5:LOCATE 3,15:PEN 9;PRIIT"1-IISTRU 
CCIOIES": LOCATE 3,17:PEN 6;FRIIT”2 JUEGO" 

2270 LOCATE 3,22:PEN 2:PRIXT’Pulsa (1/2)." 

2260 IF IIKEY(64)=0 THEN 2310 

2290 IF IFKEY(65)=0 THEI PAPER 0:GOTO 2470 

2300 GOTO 2280 

2310 VIIDOV #3.19,2,6,22:PAPER #3,5:CLS #3 
2320 LOCATE 3,16: PEN 3: PRIIT'TECLAS": LOCATE 9 
,16:PEI 2:PRIIT"=CURSORES":LOCATE 9,16:PRINT" 
P=ABAIDQNAR” 

2330 LOCATE 3,22: PEI 1: PRUT'Pulsa ESPACIO.’’ 
2340 cde*=” TU MISIOF CONSISTS EN LOGRAR 

QUE IUESTRO HEROE THESEU LIBRE A LOS TRES Cl 
EITIFICOS QUE SE ENCUEITRAI EN EL TEXPLO DE T 
ESEA,PARA ELLO THESEUS TENDRA QUE UTILIZAR U 
X COCHE Y UN HELICOPTERO. *** SUERTE * 

** 

2350 lo=9*2“10*(2=l) 

2360 IF LEI(cde*Xlo THEN cdeS=cde*+SPACE*(Io 
-LEKcde*)) 

2370 lol=LEN(cde*> 

2380 y=10 

2390 PEN 11: LOCATE #3,l,y:PRINT #3,LBFT*(tx*. 
lo); 

2400 WHILE I1KEY(47)<0 

2410 cde*=XID*(cde*, 2)+LEFT*(cde*,1) 

2420 LOCATE 2,y 

2430 PEN 11:PRINT LEFT*(cde*.I d); 

2440 VEND 

2450 WHILE IIKEYAO" k*=INKEY*: VEND 

2460 PAPER 0:GOTO 2470 

2470 '************************ 

2460 '* SCROLL * 

2490 '************************ 

2500 FOR x=17000 TO 17044 
2510 READ a*: POKE x,VALCA"+a*> 

2520 NEXT 

2530 DATA 21,3c,C3,06,06,C5,E5,06,06,C5,06.2b 
,E5,7E,E5, 11,2b,00. 19.77,El,23.7E,2B,77,23,10 
.F9.E1.11,00, 08,19,Cl,10,E5,El,11,50,00,19,Cl 
, 10.D9.C9 
2540 GOTO 600 


Para quo tus 
dodos no roalicon 
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1680 PEN 2: LOCATE 13,17; PRINT CCOLUX*+" "+CCO 

LUX* 

1690 LOCATE 13,18:PRINT CCCOLUX*+CCCOLUX*; 
1700 LOCATE 9,X:PRINT " LOCATE 6,x:PRINT' " 


1710 FOR f=9 TO 16 

1720 FOR t=l TO 30:NEXT:LOCATE f.20:PRINT CHR 
*(150)+CHR*(151):LOCATE f 1,20:PRINT " ” : NEXT 


1730 IF despla=l THEN 1750 

1740 VIIDOV 18,8,6,22:PAPER 5:CLS:VINDOV 20,1 
, 1,25:despla=l:GOTO 1710 

1750 PAPER #4,5:LOCATE #4,1, 1:PRINT#4,STRING* 
(11,197):LOCATE #4,1,2:PRINT #4,PAIS;:PRINT # 
4,PA2*; :PRINT #4.PA3$;:PRINT #4,PA4S;:PRINT # 
4, PA5*; : PRINT #4.PA6*;;PRINT #4,PA7*; :PRINT # 
4, PA8S; :PRINT #4,PA9S;:PRINT #4,PA10$; 

1760 IF honbrel=l THEI PEN 15: LOCATE 9,15:PEI 
NT CHR*(203) 

1770 IF llavel=l THEN LOCATE 12.9: PEN 14:PRIX 
T CHR*(204) 

1760 IF llavel=0 THEN LOCATE 11,15: PRINT CHR* 
(32) 

1790 IF llave2=l THEN LOCATE 16,8:PEN 14:PRIN 
T CHR*(204) 

1800 IF honbrel=0 THEN LOCATE 17,9:PRINT CHR* 
(32) 

1610 IF llave2=0 THEN LOCATE 15,13:PRINT CHR* 
(32) 

1820 IF honbre2=l THEN LOCATE 14, 15: PEN 15; PR 
INI CHR*(203) 

1830 IF honbre2=0 THEI LOCATE 15,8: PRINT CHR* 
(32) 

1840 IF llave3=l THEN LOCATE 14.8:PBI 14:PRII 
T CHR*(204) 

1850 IF llave3=0 THEI LOCATE 17,13:PRINT CHR* 
(32) 

1860 IF ho*bre3=l THEN PBI 15:LOCATE 17,14:PR 
INT CHR*(203) 

1670 IF honbre3=0 THEI 1690 

1680 sec=2:L0CATE#5,1,3:PEN #5,10:PRINT #5,(S 
EC):TECLAX=8:TECLAXX-1:TECLAY-0:TECLAYY=2: Y=1 
2:X=20:GOTO 1170 

1690 LOCATE y,x: PRINT" 1=17: FOR f=l TO 8:1= 
l—1;PEN 14: LOCATE 1,20:PRINT CHR*(205)+CHR*(2 
06):LOCATE 1+2,20; PRINT " ":NEXT:FIN=1: honbre 
3=3;GOTO 1170 

1900 FOR f=9 TO 16: PEN 2:FOR t=l TO 30:NEXT:L 
OCATE f. 20: PRINT CHR*(150)+CHR*(151): LOCATE f 
-1,20: PRINT ” NEXT:VIIDOV 16, 6,6,22:PAPER 5 
:CLS:VIIDOV 20,1.1.25 

1910 LOCATE 3,21: PEN 1:PRINT CHR*(143)+CHR*(1 
43):LOCATE 3,22:PRINT CHR*(143)+CHR*(143) 

1920 '**************** 

1930 FINAL * 

1940 '**************** 

1950 VIIDOV #5.16.6.6,22:PEN #5.2:PAPER #5,5: 
LOCATE #5,1,1:PRINT #5.COLUX*:LOCATE#5.9,1:PR 

1 NT #5, COLUX* 

1960 FOR f=2 TO 15:LOCATE #5,2,f:PRINT #5,BAC 
OL*: L0CATE#5,10. f: PRINT #5,BACOL*:NEXT 
1970 LOCATE #5,1,15:PRINT #5, CCOLUX*: LOCATE # 
5,1,16: PRINT #5, CCCOLUX*: LOCATE #5.9,15:PRINT 
#5, CCOLUX*:LOCATE #5,9.16:PRIXT #5,CCCOLUX*; 
1960 LOCATE 11, 10: PEN 1:PRIIT"T H E”;PEN 9:L0 
CATE 11,12:PRIIT'E N D” 

1990 PEN 6:LOCATE 11,16:PRINT"PULSA": PEN 2: LO 
CATE 11,17:PRINT"SPACE” 

2000 IF IFKEY(47>=0 THEN PASADAA=1: GOTO 130 
2010 GOTO 2000 
2020 '************* 

2030 '* GAME OVER * 

2040 '************ 

2050 WINDOW #5.18,8,6,22:PAPER #5,5:CLS#5:LOC 
ATE 11,10: PEN 3:PRIXT’GAME":PEN 1: LOCATE 11.4 

2 .-PRIXT’OVER” 

2060 GOTO 1990 

2070 '***************** 

2060 '* INSTRUCCIONES * 
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Cassetes no, 
gracias 

1. Poseo un CPC 6128 al cua! 
deseo conectar un datacassette. 

Este ya lo he comprado, es un 
Computer Data Recorder de la 
marca International, con su 
correspondiente cable de 
conexion. Tambien he adquirido 
un programa de juego en cassette, 
que segun la funda deberia 
funcionar en mi modelo de 
ordenador. Ahora el problema es 
que no logro que me entre. Lo he 
intentado por las instrucciones de 
la Gula del Usuario y por las que 
vienen con el programa, pero sin 
resultado. Me sale «Press play 
and then any key», y cuando lo 
hago el cassette se pone en 
marcha pero al final no ocurre 
nada. Debe ser que hay algo que 
no entiendo bien. 

2. He tecleado el listado del 
juego del Backgammon que 
publicaron en el numero 73 de su 
revista, lo he revisado v-arias veces 
sin encontrar error alguno, pero 
cuando lo pongo en marcha me 
sale «Improper argument in 
1910». iTienen ustedes alguna 
explicacion para esto? 

Thomas Zimmer 


Los cassettes dan muchos 
problemas con el 6128. Cudles son 
y su solucion, puede encontrarlo 
en AMSTRAD Semanal 72, pagina 
4. 

En la linea 1.910 del juego 
Backgammon se manejan 
cuatro variables. Una de ellas, a 
lo largo del programa, adquiere 
un valor fuera de ran go; de a hi el 
mensaje de error. La unica 
solucion es seguir la pista de las 
cuatro a traves del juego, 
insertando sentencias Print 
cuando aparezcan hasta encontrar 
el error. 

Improper 

argument 

Respondiendo a la invitacion 
propuesta en su carta, me dirijo a 
ustedes para plantearles una duda. 



Sin duda 


ALGUNA 


En el AMSTRAD Semanal 
numero 70, en la seccion «Serie 
Oro», me surje un problema al 
ejecutar el juego Pachotes 
Cuando en la pantalla se 
dibujan los graficos y el vaquero, 
este no se mueve y en la pantalla 
se lee el mensaje: «Improper 
argument in 1530» 

Les ruego me den alguna 
sugerencia, ya que el programa 
esta bien copiado, pues lo he 
corregido varias veces. 

David Moreno 

Por favor, ver la respuesta a la 
pregunta «Cassettes no, gracias», 
de estas mismas paginas. El 
problema y su solucion son de la 
misma indole. 


Syntax error 

Soy un usuario del PC 1512, y 
cuando trato de arrancar el Gem, 
se produce el siguiente mensaje de 
error: 

Error sintaxis analizando el 
fichero ASIIGN.SYS GEM vdi no 
instalado. 

iComo solucionarlo? 

Ademas me gustaria saber: 
iQue podria hacer para 
arrancar Gem? 

iComo se saca el Basic? 

^Como se crean directories y 
subdirectories? 

iComo se pone en 
funcionamiento un programa? 

Jose Angel Moreno 


1. El error que se produce en 
su sistema indica que los discos de 
arranque del Gem no estan en 
buen estado. Tendra que 
conseguir otra copia de parte de 
la gente que le vendid el 
ordenador o de un amigo 
«misericordioso». De todas 
maneras, y por si acaso, vamos a 
detallarle los pasos que nosotros 
seguimos en nuestro ordenador 
para ejecutar el Gem. 

— Apague el PC si estaba 
encendido y vuelva a conectarlo. 

— Introduzca el disco Gem 
Startup. 

— Cuando el PC se lo indique, 
saque el disco anterior y meta el 
Gem Desktop. 

En nuestro sistema, esta 
secuencia de operaciones basta 
para que el Gem aparezea en 
pantalla sin ningiin problema. 

2. Simplemente haga «click» 
con el raton dos veces en rdpida 
sucesion sobre el icono marcado 
Basic 2, o bien haga «clik» una 
sola vez, dirijase al menu fichero 
y seleccione la option Abrir. 

3. Cuando el Gem abre o crea 
una ventana, vera usted que en 
ella aparece una «carpeta vacia». 
Seleccionela y dupliquela. Luego 
cambie el nombre y meta en ella 
toda lo que quiera. Acaba de 
crear un subdirectorio. 

Si prefiere usar el MSDOS, la 
secuencia de ordenes es la 
siguiente, si posee dos unidades de 
disco: 
b: 

md “nombre” 
cd “nombre” 
a: 

cd \ 

copy lo que sea b: 

Suponemos que el subdirectorio 
lo va a crear en la unidad «b»: 

Si solo tiene una unidad: 
a: 

md “nombre” 

copy lo lo _ que sea a: 

\ nombre. 

De esta forma, podrd crear e 
introducir lo que desee en 
cualquier subdirectorio. 

4. Bajo Gem, simplemente 
seleccione el icono correspondiente 
con el raton y haga «click» sobre 
el dos veces rdpidamente. Bajo 
MSDOS o DOS PLUS, teclee el 
nombre del programa. En este 
ultimo caso solo son ejecutables 
las aplicaciones con una extension 
COM o EXE. 
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En el articulo de esta semana 
presentamos un programa con 
el que se pueden realizar 
scrolls de pantalla, en 
cada uno de los tres 
modos que poseen los 
ordenadores Amstrad, con 
una gran rapidez. 


Scroll 

de pantalla 

a toda mdquina 


por Alberto Suner 


|| 

I Hace unas semanas vei'amos en esta misma 
seccion una rutina que nos proporcionaba un 
scroll pixel a pixel de la pantalla cuando 
trabajabamos en modo 1 - 

Este programa, a pesar de realizar un 
desplazamiento suave de la pantalla, posee dos 
grandes inconvenientes. Uno de ellos es que 
unicamente podemos utilizarlo correctamente 
cuando nos encontremos en un modo de pantalla 
determinado, en este caso el modo 1. 

El otro gran inconveniente es la gran lentitud 
de dicha rutina, ya que debe realizar gran 
cantidad de instrucciones para cada uno de los 
bytes que posee la pantalla, que son nada mas y 
nada menos que 16.384. 

Hoy realizaremos una rutina de 
desplazamiento de pantalla de caracter a caracter, 
con lo cual se realizara un scroll mucho mas 
rapido, y ademas sera utilizable para cualquiera 
de los modos de pantalla que posee el Amstrad. 

Sin embargo, se perdera en parte la suavidad 
que se consegufa con el anterior programa. 

Veamos, en primer lugar, cuales son los 
parametros necesarios para que nuestra rutina 
funcione correctamente. 

Dichos valores se deberan colocar en los 
espacios reservados para ellos en el programa, es 


decir, en los cuatro bytes que siguen a la rutina, 
que en el listado ensamblador vienen definidos de 
la siguiente manera: 

ANCHO: DEFB 50 
LINEA: DEFB 2 
POSIC: DEFVV #0505 

El primero de ellos, es decir, la variable Am ho, 
indicara el numero de bytes en forma horizontal 
que seran desplazados por la pantalla. Debemos 
tener en cuenta que en cada uno de los modos 
los caracteres estan formados por distinto numero 
de bytes. 

A continuacion se exponen los bytes que 
forman cada caracter en los distintos modos de 
pantalla. 

MODO 2... 1 CARACTER... 1 BYTE 
MODO 1... 1 CARACTER... 2 BYTES 
MODO 0... 1 CARACTER... 4 BYTES 

Se debe entender que este numero representa 
los bytes de cada caracter en forma horizontal, ya 
que en sentido vertical todos los caracteres estan 
formados por ocho bytes, independientemente del 
modo de pantalla utilizado. 

Otra de las variables del programa es la que 
esta representada por Linea. Esta indicara el 
numero de lmeas sobre las cuales se debe efectuar 
el scroll. 
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Por ultimo, tenemos la variable Posic, que nos 
indicara a partir de que coordenadas de pantalla 
se desea efectuar el scroll. 

Esta variable debera toraar el valor #0000 para 
la esquina superior izquierda de la pantalla. Se 
puede decir que toraa los mismos valores que la 
funcion Locate de Basic, pero restando una unidad 
a la coordenada horizontal y vertical. 

Resumiendo, y a modo de ejemplo, podemos 
decir que con los valores actuates que contiene el 
programa. Se lograria un scroll a partir de las 
coordenadas 5,5 (6,6 para Locate) de una anchura 
de 50 bytes y una altura de dos lineas (es decir, 
de 16 bytes de altura). 

Veamos ahora como funciona nuestro 
programa. En primer lugar, se carga el registro 
doble HL con el contenido de la variable Posic, y 
a continuacion se hace una llamada a una rutina 
del firmware: 

CALL #BC1A 

Como recordaremos, esta rutina nos devuelve, 
en el mismo registro HL, la direccion de pantalla 
correspondiente a dichas coordenadas. 

PROGRAMA 

CARGADOR 

10 REM * CARGADOR CURSO C/M 21 * 

20 rem mmmimmmmm 

30 FOR N=4A000 TO &A034 
40 READ A:SUMA=SUMA+A 
50 POKE N,A 
60 NEXT 

70 IF SUKAO&1472 THEN PRINT "ERROR 
EN DATAS" 

80 DATA 42,50,160,205,26,188,58 
90 DATA 49,160,71,197,229,6,8 
100 DATA 197,229,84,93,126,245,35 
110 DATA 58,48,160,6,0,79,237 
120 DATA 176,241,18,225,17,0,8 
130 DATA 25,193,16,231,225,17,80 
140 DATA 0,25,193,16,219,201,50 
150 DATA 2,5,5,0,0,0,0 


Codigo 

M/OJNA 

A continuacion cargamos en el acumulador la 
variable Linea, introduciendola a continuacion en 
el registro B, para formar asf un bucle que nos 
indicara las filas sobre las cuales se debe efectuar 
el desplazamiento. 

Seguidamente se forma otro bucle que se 
repetira ocho veces, ya que cada una de las filas 
de la pantalla esta compuesta por ocho bytes. 

En este bucle es donde se realizara el trabajo 
de scroll de pantalla. 

Para ello se pasan al registro doble DE los 
valores actuales del registro HL, que es el que 
contiene la direccion de pantalla: 

LD D,H 
LD E,L 

Ahora cargamos en el acumulador el contenido 
de la direccion actual de pantalla, y lo 
preservamos para recuperarlos mas tarde: 

LD A, (HL) ;# 

PUSH AF ;# 

A continuacion incrementamos el registro HL, 
y cargamos en el acumulador el contenido de la 
variable Ancho, que es la que indica el numero de 
bytes en sentido horizontal que deben 
desplazarse: 

INC HL 

LD A, (ANCHO) 

Seguidamente debemos cargar en el registro 
doble BC el numero de bytes a ‘scrolear’. Para 
ello, cargamos B con cero y en el registro C 
cargamos el contenido del acumulador, con lo 
cual se puede efectuar la operacion de 
movimiento del bloque de pantalla: 

LD B,0 
LD C,A 
LDIR 

Una vez hecho esto, debemos recuperar el 
contenido del acumulador que se habia 
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Codigo 

M/OJINA 

preservado anteriormente y cargarlo en la 
direccion a la que apunta el registro doble DE, es 
decir, en el ultimo byte de la Ifnea desplazada: 
POP AF 
LD (DE),A 

Con lo cual se consigue el efecto de rotacion de 
la pantalla; es decir, que lo que desaparece por la 
parte izquierda se recupere por la parte derecha. 
En el caso de que se quisiera efectuar un scroll 
con perdida del contenido de la pantalla, 
unicamente deberfamos suprimir del listado del 
programa estas dos ultimas lfneas, junto con la 
marcada con un asterisco ‘ * ’. 

Una vez producido el desplazamiento en una 
linea, se deberia recuperar la direccion de 
pantalla anterior, a la cual se debera sumar el 
valor 2.048, para asf obtener la direccion del 
siguiente byte de pantalla en sentido vertical: 

POP HL 
LD DE,2048 
ADD HL,DE 

Cuando se haya producido el scroll de los ocho 
bytes que contienen cada una de las lfneas, 
deberfamos calcular la direccion de la siguiente 
Ifnea de pantalla. 

Esto lo haremos recuperando la direccion 
inicial de la anterior Ifnea y sumandole el 
valor 80: 

POP HL 
LD DE,80 
ADD HL,DE 


Una vez finalizado este ultimo bucle, se habra 
conseguido el desplazamiento de la parte de 
pantalla dada en los parametros iniciales un byte 
hacia la izquierda. 

Como se podra comprobar, la velocidad de 
ejecucion de esta rutina es realmente rapida, si 
tenemos en cuenta que la pantalla de nuestro 
Amstrad esta compuesta por un elevado numero 
de bytes. 

Dada la gran versatilidad de esta rutina, ya 
que podemos elegir la zona de pantalla a 
desplazar, asf como sus dimensiones y las 
coordenadas iniciales, se podrfa utilizar como 
ayuda en cualquier programa Basic o en Codigo 
Maquina que deseemos realizar. 

Como podemos ver, aquf unicamente estamos 
estudiando el scroll hacia la izquierda, pero 
realmente tambien nos puede ser necesario un 
desplazamiento hacia la derecha. 

Pues bien, esta tarea os la reservo a todos los 
que sigais este Curso de Codigo Maquina, 
aunque sf os dare alguna pista que supongo que 
algunos estaran adivinando. 

Como hemos visto, nuestra rutina utiliza una 
mstruccion de desplazamiento de bloques como es: 

LDIR 

Por tanto, para efectuar el mismo trabajo, pero 
en sentido contrario, deberemos utilizar la 
instruccion: 

LDDR 

Teniendo en cuenta que en este caso 
deberemos indicar en los registros dobles HL y 
DE la direccion mas aha a partir de la cual 
deseamos trasladar los datos. 

Por hoy no resta nada mas por decir, 
unicamente desearos suerte en la confeccion de la 
rutina de desplazamiento a la derecha de la 
pantalla. 



18 AMSTRAD Scmamil 
















18 juegos dinamicos 
para tu Amstrad 


Los juegos son una de las 
primeras utilidades que 
encontramos a los 
ordenadores. Tambien 
pueden ser un buen metodo 
de aprendizaje, si ya se 
tienen algunas nociones de 
programacion. 



El libro que presentamos 
en esta ocasion puede servir 
de una gran ayuda para 
familiarizarse con estos temas 
y divertirse con los 18 juegos 
que aparecen en el. 

Cada uno de estos juegos 
consta de una explicacion y 
el listado que hay que 
teclear. Van amenizados con 
unos simpaticos dibujos 
relacionados con el tema de 
cada juego. 

Cada uno de los 
programas aprovecha todas 
las posibilidades del Amstrad 
en graficos, color, sonido, 
etc. por lo que es muy difxcil 
que se alcancen los mismos 
resultados con otro ordenador 
que no sea de esta marca. 
Una de las advertencias que 
hace el propio autor en el 
prologo es: los listados estan 




reproducidos 

fotograficamente, por lo que 
los errores que se puedan 
producir al arrancar los 
programas deben ser debidos 
a fallos al teclear, por 
ejemplo al confundir la letra 
o con el 0. 

Para grabar los juegos en 
un disco hay que escribir la 
orden Save” < nombre + ’ 
(entre las comillas se pone el 
nombre del juego). Para 
buscarlo en el disco y cargarlo 
se pone Load” y el nombre que 
le hayamos dado. En ambos 
casos, despues de escribir las 
ordenes hay que pulsar Enter 



Tratamiento 
de textos 

El tratamiento de textos es 
una de las aplicaciones de los 
ordenadores mas utilizadas 
actualmente. En todos los 
trabajos de oficina se 
emplean estos metodos para 
escribir, corregir, grabar y 
archivar todos los 
documentos necesarios. 

Por todo esto, el libro esta 
dedicado a todas aquellas 
personas que realizan 


trabajos de oficina o 
administracion y que por 
diversas razones tienen que 
reincorporarse al mercado del 
trabajo, o para las empresas 
que estan pensando 
implantar, o acaban de 
hacerlo, un sistema como 
este. 

Aparte de la explicacion 
puramente teorica, siempre 
muy util, el libro dedica un 
gran espacio a las 
explicaciones practicas y a los 
ejercicios. Pero, quiza, una 
de sus mejores virtudes sea el 
lenguaje sencillo y claro, con 
unos dibujos y graficos muy 
de agradecer para la 
comprension de esta forma 
de utilizar el ordenador. 
Ademas, da una serie de 
indicaciones para la 
resolucion de los problemas 
mas frecuentes que se 
producen en la utilization de 
programas para tratamiento 
de textos y un glosario con 
todos los terminos tecnicos 
mas usuales, con una 
definition a modo de 
aclaracion sobre cada uno de 
ellos. 


APRENDE 

TUSOLO 

Tratcimiento 
de textos 


Vera Hughes 



\ 
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Graficos 
para PCW 
en Basic 


En principio, el Mallard Basic del 
PCW no proporciona comandos 
graficos. Sin embargo, como parte de 
los ficheros estandar del CP/M Plus 
tenemos todo un sistema para el 
procesamiento de ordenes graficos: el 
GSX, imciales de Graphic System 
Extension. 



E. 


/s de dominio publico que el PCW ha sido 
disenado y presentado como el procesador de textos 
ideal, por su bajo precio y sus altas prestaciones. 
Esto, sin duda, es asi, pero no hay que olvidar la 
segunda faceta de esta maquina: es un ordenador de 
proposito general con Mallard Basic y sistema 
operativo CP/M Plus 
completo. 

El Mallard Basic es una 
implementacion del famoso 
lenguaje con gran potencia 
para las aplicaciones de 
gestion: ficheros aleatorios, 
indexados, manejo de palabras 
y numeros, etc. 

Sin embargo, las malas 
noticias son que no hay forma 
humana, en principio, de 


hacer graficos con el. Si usamos una hoja de calculo, 
tenemos que ver los resultados en la forma pesada y 
confusa de columnas de numeros. nada de graficos de 
barras o de tarta que nos permitirfan apreciar, a vista 
de pajaro, el futuro previsible de nuestro negocio, asi 
como su situacion actual. 

Sin embargo, no 
todo esta perdido. 
Afortunadamente , 

„ ___ el CP/M incluye 

entre sus utilidades 
el GSX, un 
sistema de 
manipulacion de 
graficos pensado 
para ser usado por 
cualquier 
programa que 
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corra bajo CP/M. 

Las utilidades de GSX son bastante complicadas de 
manejar, pero las rutinas listadas en la tabla 1 
permitiran dibujar puntos, lineas o circulos y llenar 
areas y superficies del tipo de los graficos de tarta. A 
diferencia de las llamadas a ordenes Draw o Plot en 
otros Basic, las de GSX permiten dibujar lineas entre 
gran numero de puntos. 

Antes de poder usar las antedichas utilidades es 
necesano «fundirlas» con el Mallard Basic Esto solo 
es posible si en el disco se encuentran presentes los 
ficheros apropiados. Son los siguientes: 

GSX.SYS 
ASSGN.SYS 
DDSCREEN.PRL 
DDFXLR8. PRL 
DDFXHRB. PRL 
GENGRAF.COM 
BASIC.COM 

El siguiente paso es teclear Gengraf Basic, 
exactamente asf. Sin comillas, con un espacio entre 
ambas palabras y, eso sf, indistintamente en 
i mayusculas o minusculas. 

El efecto de esta secuencia caballstica de comandos 
es unir al Mallard Basic un pequeno cargador que 
o gestionara las ordenes graficas que se le suministre. El 

fichero Gengraf.Com, una vez hecho todo esto, puede 
borrarse del disco, pero el resto debe estar siempre 
presente. 

•s Cuando usted arranque el Mallard, tecleando 

Basic, gracias a la accion del cargador «fundido» con 
Gengraf, se incluira tambien en memoria el sistema 
grafico. 

Una de las facilidades mas importantes de GSX es 
r que, para el programa que lo utiliza, todas sus partes 

se invocan igual. Por ejemplo: se pueden emplear una 
serie de ordenes para examinar un dibujo en pantalla. 




Gracias a este 
programa, el PCW 
puede realizar todo 
tipo de graficos en 
pantalla o impresora 
con sencillez, sin 
desmerecer en 
absoluto a sus 
«competidores» los 
CPC. 



Mundo del 

PCW 

Las mismas, una vez cargado en la memoria el 
driver de impresora, serviran para obtener un hardcopy 
de el. 

El programa que presentamos esta escrito en Basic 
y, por tanto, no es particularmente rapido. Sin 
embargo, muestra como usar el GSX, y su dibujo en 
pantalla sigue siendo mucho mas rapido que la salida 
por impresora en modo de alta resolucion, el cual 
puede tardar, y tarda, varios minutos en concluir su 
proceso. En cualquier caso, pensamos que la calidad 
grafica obtenida compensa con creces la lentitud. 

Despues de teclearla y salvarla en disco, se la 
puede usar con GOSUB 2000. La operacion grafica se 
controla mediante una serie de comandos almacenados 
en la variable GSX$, y las coordenadas necesarias en 
el array Points^ 1,74), hasta 75 pares de posiciones. La 
coordenada x se encuentra en A>in/.f((),N) y la y en 
Points^ 1 ,N). 



Tabla i 

Sintaxis de los comandos graficos 


pantalla 

BEGIN 

baja resolucion prop (rango de 


coordenadas) 


alta resolucion xy (rango x) (rango t ) 

END 


CLEAR 


OUTPUT 


DRAW 

(numero de puntos) (tipo de linea) 

PLOT 

(numero de puntos) (tipo marker) (tamano 


marker) 

FILL 

(numero de puntos) (solidn) (trama) 

BAR 

Mismas opciones que FILL 

TEXT 

Caracteres (xposicion) (yposicion) (tamano 


texto) 


(direccion) 

CIRCLE 

(radio) (xcentro) (ycentro) (linea tipo) 


(opciones FILL) 

PIE 

(angulo de comienzo) (numero de grados) 


(opciones CIRCLE) 



PROGRAMA TESTER 

EXPER1MENTACI0N CON LOS COMANDOS GRAFICOS 


10 REM Putina para introducir comandos en GSX 
15 esc$=CHR$(27):cls$=esc$+"E‘+esc$*"R" 

20 F'P!NT"lntreduzca cadene de ordenes INPUT gsx$ 
30 IF LEFT$(gsx$(, 1 }=CHR$(35) THEN GOTO 100 
50 GOSUB 2000 
60 GOTO 20 
90: 

100 PRiNT'Nurnero de puntos “;:INPUT gpn 

110 FOR n=0 to gpn-1 

120PRINT "Coordenadas ";n;" X, V"; 

130 INPUT points(0,n), points) 1 ,n) 

140 NEXT n 
150 GOTO 20 
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El array se dimensiona cuando se llama a la 
subrutina, por lo que no se debe usar antes. No use 
Option Base 1. Como en Basic las variables son 
globales, es decir, son «conocidas» por el programa 
principal y todas las subrutinas, es necesario evitar el 
uso de nombres identicos en aquel a los de estas. 

La tabla 1 lista los comandos que se pueden enviar 
al sistema grafico GSX a traves de la variable GSXJ>. 
Las acciones pertinentes se toman por combination de 
una sene de parametros, letras y numeros, 
separados por espacios, no por comas, para no «liar» 
al Basic. Estos comandos se dividen en dos grupos: 
aquellos que controlan el driver de pantalla, impresora 
o lo que sea, y los que producen una salida visible. 
Muchos de los comandos tienen parametros 
opcionales, los listados en cursiva en la tabla 1. 

BEGIN es, a la vez, el comando mas complicado e 
importante de los que rigen a los drivers. Descubre 
cual es el adecuado, y lo carga desde el disco si no 
esta presente, ajustando los parametros, por defecto, 
necesarios e inicializando. 

Para el GSX todos los perifericos de salida son 
analogos y, por tanto, asume que poseen el mismo 
tamano: 32767 unidades cuadradas. Con este 
tratamiento, surge un claro problema de escala. Para 
entendernos, conseguir que un cfrculo se vea en la 
pantalla tal cual, no como una elipse. Para ello hay 
dos posibilidades la orden XY seguida de dos 
numeros que indican los valores de escala en las dos 


direcciones. La segunda es el comando PROP y un 
unico numero, que le dice el GSX el rango de escala 
para la dimension mas pequena del periferico de 
salida. Para la pantalla es su anchura en pixels, y 
para la impresora lo mismo, pero medido en 
caracteres. 

END. Cierra el driver en cuestion ordenadamente. 
Si se estaba usando la pantalla, este comando la libera 
completamente para una salida normal, sin graficos, y 
devuelve al CP/M la lfnea inferior de la misma para 
que pueda emplearla en la emision de mensajes. 

CLEAR. Prepara para un nuevo dibujo. Borra la 
pantalla o ejecuta un salto de pagina en la impresora 

OUTPUT. Ejecuta todos los comandos graficos 
pendientes, si existen. No tiene efecto en la pantalla, 
donde los dibujos aparecen a medida que los 
comandos se reciben, pero el driver de impresora 
almacena todas las instrucciones que se le comuniquen 
y entonces imprime el grafico en cuestion cuando 
recibe la orden. 

DRAW(N). Dibuja una lfnea entre los primeros n 
puntos almacenados en el array Points. Es posible usar 
diferentes estilos para ellas, con el parametro estilo, 
con tal que el valor este comprendido 
entre 1 y 5. 

PLOT(N). Ilumina los primeros n puntos del array 
Points. Los markers que se pueden usar son 
gobemados por un parametro que oscila de 1 a 5, y 
su tamano por otro limitado por los valores 1-12. Esta 


2000 IF I0T gl THEI GOSUB 3460 

2010 IF gsx*="" THE! RETURI 

2020 DBF PIl*(aI,b>=LOVEE*(LEFT*(aS,b>) 

2030 DBF FJsc(a,B>-KAI<MI*(s»a f 32767),0> 

2040 COSUB 3230: g6xS=Ffl$(g*(0>,3) 

2050 o- IISTR (“begendc leout .. .draplotexf ilbarcirple", 
gs**> 

2060 IF a=0 THEI 2100 
2070 a=<a*2>/3 

2060 IF (i<)l> AID FOT gb THEI PRIIT “You must BEGII 
output device’;: GOTO 3370 

2090 O* a GOTO 2110,2280,2280,2280.2100,2320,2320,2390 
,2320,2490,2870,3040 

2100 PRIIT "CSX coaaand not recognised"; : GOTO 3370 
2110 gBX®=FIl*(g*(l>,2>: b= IISTR Cschilo",g6x*> 

2120 IF b=0 THEI PRIIT "Mo such Graphic Device!’;: GOTO 
3370 

2130 gsxS=FIl*(g* (2) JZ > :c= IISTR C"xypr’,gBxS> 

2140 IF (c-0) THEI PKIIT "lot correc 4 - coordinate 

scaling*;: GOTO 3370 

2150 b=(b+l)/2: gid=b+19t(b\2> 

2160 galX(0)=gid 

2170 IF b=l THEI gv=-l:gd*=fS:gw*=w* 

2180 gsxX(0)=UlT<VASPTR(gocX<0> )) 

2190 gsxX(1)=UIT (VARPTR (goiX (0 ) ) > 

2200 GOSUB 3170 
2210 gb=-l 

2220 gac=gpoX(l>: gn*=gpoX(9> 

2230 IF c— 1 THEI IF v<2 THEI PRIIT "Seed 2 SCALE 
factors’;: GOTO 3370 ELSE gxs= 32767/gp(0); 
gys-32767/gpCl ): GOTO 2270 

2240 IF v<l THEI PRIIT “SCALE factor needed!";: GOTO 
3370 

2250 gpr= goX(0)ftgoX(3)/<goX(l)*gaX(4)) 

2260 IF gpr>l THEI gyB=32767/gp(0>: gX6=gys/gpr ELSE 
gxs-32?67/gp<0>: gys-gxs«gpr 
2270 RETURI 

2280 IF a=2 THE! gb=0: IF gv THEI gv=0:gd*=“:gwl=“ 
2290 gcXC0)=a: gcX(l)=0 
2300 GOTO 3160 
2310 : 

2320 IF v < 1 THEI PRIIT "How many polnte?";:G0T0 3370 
ELSE gpn=gp(0> 

2330 GOSUB 2820 

2340 IF <v>l> THE! IF a=6 THE! glt=gp(l); GOSUB 2620 

ELSE IF a=7 THEI gat-gp(l) :GOSUB 2650 

2350 IF o=7 AID v>2 THE* g»6= gp<2>: GOSUB 2680 

2360 IF a=9 AID b> 1 THEI gsxS=FH*<g*a»^): GOSUB 

2730 

2370 gcX(0)=a: gcX(l>=gpn 
2380 GOTO 3160 

2390 IF v>2 THEI gts=gp(2): GOSUB 2530 

2400 IF v>3 AID gp{3K>0 THEI u=gp(3): GOSUB 2560 

2410 gcX(0)=8: gcX(l)=l: gpn=l 

2420 gcX(3)=LEI(«)/2 

2430 IF v>l THEI gxyX(0.0)=FIsc<gp<0)^xs): 
gxyX (1 ,0 ) =FIbc Cgp <1 ) ,gys) ELSE GOSUB 2820 
2440 gtp=VAKPTR Cti) 

2450 gsxXCl )-UIT (PEEK Cgtp+1 J+2564PEEK<gtp+2)> 

2460 gsxX(0)=UJT(VARPTR(gcX«»)> 

2470 GOTO 3170 

2480 IF s>l THEI gsx*=F*l*(g*<l>,2>: gp(l)=gp<0>: 

v=v+l: GOSUB 2730 

2490 gcX<0)=ll 

2500 gcX(l>=2: gcX(5)=l 

2510 gpn=2: GOSUB 2820 


2520 GOTO 3160 

2530 gcX<0)=12: gc»(l>=l 

2540 gxyX(0,0)=0: gxyX (1,0>=gts*g*c 

2550 GOTO 3160 

2560 gcX(01=13: gcX<l)=0 

2570 IF u > 4 THEI PRIIT "Bod text Direction!"GOTO 
3370 

2580 ginX(C)= <u-l)t900 

2590 gioX(l)= 1008(u MOD 2)«<2-u) 

2600 glnX(2)= 100*Cl-u HOD 2>*<3-u> 

2610 GOTO 3160 

2620 gcX(0>=15: gcX(l>=0 

2630 gln%(0)=glt 

2640 GOTO 3160 

2650 gcX<0>=18: gcX=0 

2660 glnX(0)=gBt 

2670 GOTO 3160 

2660 gcX(0>=19: gcld)=l 

2690 gxt=gxyX(0,0): gxyX(0,0)=0 

2700 gyt=gxyX(l,0): gxyX<1,0 >=g«s»g*M 

2710 GOSUB 3160 

2720 gxyX(0.0>=gxt: gxyX (1,0>=gyt: RETURI 

2730 gcX(0>=23: gcX(l>=0 

2740 gfs= IISTR ("hceopaha-^exX) 

2750 IF gfB=0 THEI PRIIT "Illegal FILL Btyle";:GOT0 3370 
ELSE gfs=(gfs+l)/2-l 
2760 ginX<0)=gfe 

2770 IF gfs > 1 THEI GOSUB 3160 ELSE 3160 
2780 gcX<0)^24: gcX(l)-0 
2790 IF v>l THEI gfi=gp(l) 

2800 ginX(0)=gfl 

2810 GOTO 3160 

2820 FOR n=0 TO gpn-1 

2830 gxyX(0.n)~FIsc(pointB(0,n)^xs) 

2840 gxyX<l,n)=Fl6c(pointB<l,n>,gys) 

2650 IEIT n 
2860 RETUF® 

2670 gpn=72: gl=0: g2=71 
2880 IF v>0 THE! gr=gp(0) 

2890 IF v>2 THE a gcx=gp(l>:gcy=gp(2> 

2900 FOR n= gl TO g2 

2910 gxyX(0,n-gl+1)~ Fisc <(gcx+gr*gcl(0,(n HOD 
72))),gxs) 

2920 gxyX(1 .ii'gHI)=PI bc<( gey+gr*gcl<1,(n HOD 
72>>>,gyB> 

2930 IEIT n 

2940 gxyX(0,0>=gxyX(0,gpn-l>: gxyX(1.0>=gxyX<l,gpn-l> 
2950 IF v>2 THBI FOR n= 3 TO v: gp(n-2>=gp(n>: IEIT n: 
v=v~2 

2960 IF b<2 THEI 3020 
2970 gs*t=Fll»(g$(l)^) 

2980 ■= IISTR (“Ilf IF m= 0 THEI PRUT "bad circle 

Mode": GOTO 3370 
2990 gB=6+3*(n\3) 

3000 6=s-l 

3010 IF b> 1 THEI gS(l)=g$(2) 

3020 a=g* 

3030 GOTO 2340 

3040 IF v<2 THEI PRUT "Vhat angles for pie Bllce?"-: 
GOTO 3370 
3050 gl=gp(0>\5 
3060 g2=gl+gp(l)\5 

3070 IF v>2 THEI FOE n= 2 TO v: gp(n-2)=gp(n>: IEIT nr 

v=v-2 ELSE 3110 

3080 IF v>0 THEI gr=gp(0) 

3090 : 


3100 IF v>2 THBI gcx=gp(l>:gcy=gp<2) 

3110 n=g2-gl+2 

3120 gxyX(0,n>=Fl6C<gcx,gxs) 

3130 gxyX(l,n>=FI&c(gcy,gyB) 

3140 gpn=n*l 
3150 GOTO 2900 

3160 gsxX (0)=UIT (VAEPTR (gcX (0 >) ): 
gsxX (1) -UIT (VA RPTR (g lnX (0 >) ) 

3170 gexX(2>=U»T(VARPTR (gxyX(0,0> 1 > 

3180 gsxX(3)=D1T(VARPTR(goX(0>>): 
gsxX (4 >=UIT (VARPTR (gpoX (0)) ) 

3190 PRIIT gdi 

3200 CALL gl (gd,gsxX(0>) 

3210 PRUT gwS 
3220 RETURI 

3230 s=0: v=0: IF gsx»=“ THE* RETURI 
3240 VEILS gBxSO"" 

3250 IF LEFT*(gsxS,l)=* * THBI gBX*=MID*(g6X*,2): GOTO 
3250 

3260 gl*=LEFTS(gBx*,l) 

3270 IF gl*=CHR*(34) THEI gsxS=MIM(g G xS,2» 
gu= IISTR (gsxi.CHRS(34 )) :IF gu=0 THBI PRIIT "Hissing 
quotes fro* text!";: GOTO 3370 ELSE 
U=LEFT*(g6X* ( gu-l>:gsxt^MID»<gsx*,2>:GaSUB 3400 : GOTO 
3340 

3260 gu= IISTR (gexi," *» 

3290 IF gu=0 THEI gu=LEI<gsx*m 
3300 gt*=LBFTS<gsx*„gu> 

3310 gn= IISTR ("1234567890* ,glS) 

3320 IF gn THEI gp(v)=VAL(gt*):v=v+l 
3330 IF gn=0 THEI gS(B>~gtS: b=b+1 
3340 gsx3UHIDJ(gsxJ^u) 

3350 VEID 
3360 RETURI 

3370 PRIIT " press any key to continue..*; 

3380 IF IIOT*=— THEI GOTO 3380 
3390 PRUT: RETURI 

3400 gh*=“:IF t*=" THBI PRIIT "Text ■iBsing!";: GOTO 
3370 

3410 FOR n= 1 TO LEfl(U) 

3420 gh*= gbl + MID*(t»,n,l) * - - 
3430 IEXT n 
3440 t*=gb* 

3450 RETURI 

3460 MEMORY HIMEM-6 

3470 RESTORE 3480 

3460 DATA AHOE^H73,ftHCD,»H05.4H004HC9 

3490 FOR n=l TO 6; READ gl: POKE HIMEM+bgl: MBIT n 

3500 DIM gSxX(4)^cX(5>^lnX(9)^xyX(l,74)^aX<44> 

^poX (149 >,gci (1,71) 

3510 DIM gocX(5) c golX(9),g* (9) (9) 

3520 DIM points(1,74) 

3530 DATA 1,0,6,10,45,0 

3540 FOR n=0 TO 5: READ gocX(n): IEIT n 

3550 FOR n= 0 TO 9: golX(n)=l : IEIT n 

3560 gl=HIMBM+l: gd=0 

3570 gsc*=CRR*(27) 

3580 f*=escl+*l"+e6c4+"f"+e6c*+"H" 

3590 w*=escl+"0’+e6cI+"e’+esc*+"X*tCHR* (63>+CHF* (32) 

+CH1I (32 > +CHRS (120) 

3600 pi=4»ATI (1): gl=-l: g»=6 
3610 gts=l: glt=l: gat=l: g«e=l 
3620 ga=pl/36 
3630 FOR n= 0 TO 71 

3640 gcl(0,n)=COS(n«ga): gci(l,n)=SI*(n»ga) 

3650 IEIT n 
3660 RETURI 
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ultima opcion trabaja solo en la impresora. 

FILL(N). Conectara los primeros n puntos del 
famoso array con una lrnea solida, casi como Draw , 
pero el ultimo punto de dicha lmea se unira con el 
primero, formando un area cerrada que, acto seguido, 
se llenara con una trama de fondo. 

BAR. Es una opcion incluida dentro de los drivers 
de GSX. Dibuja una barra rectangular, que puede ser 
llenada con cualquier trama de las disponibles 
mediante la orden Fill. 

TEXT. Permite que el grafico tenga un ti'tulo. 
Necesita dos parametros numericos: las coordenadas 
de la mitad inferior izquierda y la altura del texto 
(textsize), entre 1 y 12. El texto en concreto, las 
palabras, se pueden incluir en la variable GSX$ 
despues del comando inicial en cualquier sitio. 
Alternativamente se puede pasar el texto en una 
variable intermedia, t$, pero si se hace as! hay que 
efectuar una llamada GOSUB 3400 antes de GOSETB 
2000. En cuanto a la impresora, es posible controlar 
la direccion del texto con el parametro direction, 
valores 1 a 4. 

Los comandos que siguen no existen en GSX. Se 
han hecho en Basic. 

CIRCLE Dibuja un cfrculo de radio radius, con 
centro en xcentre e ycentre. Se puede dibujar con la 
misma variedad de lineas que en Draw o llenar con las 
tramas de fondo de Fill. 

PIE Dibuja una parte del tipico grafico de tarta. 

1. Impuestos 


Mundo del 

POV 

Se debe especificar, en grados, el angulo en el sentido 
contrario a las agujas del reloj, partiendo de la base 
donde la tarta debe comenzar, asf como la anchura en 
grados. El resto de las opciones son analogas al 
comando Circle. 



El gran handicap grafico 
def Basic del PCW ha sido 
ampliamente superado 



El programa Tester sirve para ver como funciona 
todo esto, experimentando un poco. Pedira la entrada 
de una cadena de ordenes. Tecleese basandose en la 
tabla 1 y, al acabar, pulse la tecla Return Si el 
primer caracter es un espacio, el programa pasara a 
pedir los datos del array Points. 




Grafico de tarta ilustrando diferentes tipos de tramas de fondo. Cfrculos tal y como se ven en la impresora y en la pantalla. 




Grafico de barras, de uso comtin en documents de negocios. Ejemplos de Draw y Plot en diferentes estilos v tamanos. 
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Explosion de 
colores 

Por: Francisco Roelas y 
Marichu Diaz 

Como su nombre indica, la 
ejecucion de este programa causa 
en pantalla una progresiva 
inundacion de color. Es mteresante 
observar el programa para ver 
como lo hacen. Los autores nos 
envfan la siguiente nota de 
aclaracion 

Se pueden quitar las sentencias 
Print o cambiar estos por otros (se 


Top secret 

Pot: Angel Sanchez Gallego 

Este programa dota a los 
nuestros de una clave de acceso. Si 
el usuario no acierta con la 
correcta al cuarto intento..., 
bueno, no quiero decirles lo que 
pasa. 

Para que funcione bien el 
programa (suponemos que el 
usuario, en principio, cumple con 
todos los deberes que su estado 


10 REM explosion de colores 

20 REM francisco roelas 4 MARI 

CHU DIAZ 

30 MODE 0 

40 ORIGIN 320,200 

SO PRINT CHR$(23);CHR$(3);:TAG 

60 PLOT 15,15,1 

70 FOR a=l TO 70 

SO PLOT RN0U5*a,RN0(im,l+RN 

D(im2:PRiN7'T; 


90 PLOT RND(l)*a,-RNDCl)#a:PRI 
NT”*"; 

100 PLOT -RN0 01)*a,-RND(1):P 
RINTT; 

110 PLOT -RND(l>*a,RN0(l)*s:PR 
INT”*”; 

120 NEXT a 

130 TAS0FF:PRINT CHRt(23);CNR$ 
( 0 ); 


legal implica) hay que asignar unos 
valores a algunas variables, 
incluyendo en el programa las 
sentencias de asignacion 
correspondientes. Son estas: 

Long: Numero de caracteres de 
la clave. 

Codigo: Variable alfanumerica 
donde debe ir el codigo de acceso. 
Por ejemplo, A5B3. 

XXX: A donde debe saltar el 
programa una vez comprobado que 
la clave es correcta (ver listado). 


1 ON BREAK G0SUB 13:REM protec 
cion de prograeas 

2 REM por Angel Sanchez 

3 MODE 2:LOCATE 10, 10:PRINT'In 
troduce la clave de acceso: *; 

4 cla*=INKEY* 

5 IF p=l THEN p=0: SOTO 3 

6 IF da$=** THEN 4 ELSE 1=1+1 
: PRINT cla$;:su*=sut+cla*:IF 1 
=long THEN 1=0:6QT0 7 ELSE 4 

7 IF sutO'codigo* THEN su*=” 
:fi0T0 10 

8 CLS:LOCATE 10, tOlPRINT' Brav 
o. Clave Correcta. Acceso auto 
rizado 1 

9 60T0 lines’REM linea debe se 
r un nueero correspodiente a 1 
a lines que querates decodific 
ar 

10 CLS:LOCATE 10,10:PR1NT* Cla 
ve incorrecta. Acceso denegado 
*:a=a+l 

11 IF a<4 THEN LOCATE 10,11:PR 
INT’Le quedan:'j4-ai' intentos 
':CALL &BS18:60TQ 3 ELSE CLS:L 
0CATE 10,10:PRINT*Pirata!* 

12 IF a=4 OR b=5 THEN LOCATE 1 
0,14:PRINT'adios’:CALL &IB15:E 
NS 

13 CLS:LOCATE 10,S:PRlNT‘Eso e 
sta fatal!*:b=b+i:CALL 48818:1 
F b=5 MN 12 ELSE p=l:RETURN 


entiende, los caracteres). Si se 
eliminan los Print, se vera una 
explosion de puntos de colores. 

Si se alteran estos por sentencias 
Draw, el efecto en pantalla merece 
la pena verlo. 
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Laser al habla 


Pot: Antonio Roldan 

^Alguien se acuerda del primer 
programa de presentation del 
Amstrad que se podia ver en las 
tiendas recien nacido el ordenador? 
Tenia una rutina notablemente 
parecida a esta y funcionaba casi 
igual de bien que la nuestra 
(modestia aparte). Pero, sin duda, 
lo mejor es teclear el truco y 
maravillarse de que se pueda hacer 
algo asi en tan pocas lnieas de 
programa. 



10 «CDE SUNK 0,0:INK 1,0:INK 
2,24:INK 3,20.'PAPER 0:BORDER 0 

:pen i 

20 LOCATE l,25:PRINT"Laser" 

30 PEN 3 

40 LOCATE 20,2S:PRINT CHR$(222 
!;CHRt(223)j 

50 PRINT CHRtC23)5 CHR$Cl) 

SO FOR >;=1 TO 120 
70 FOR y=16 TO 1 STEP -1 
SO x1=C 41+30:y1=6*y+(200) 


90 IF y<9 THEN t=2 ELSE c=3 
100 IF TEST(‘ ,y)O0 THEN 60SUB 
130 

110 NEXT y,x 
120 END 

130 FOR n=l TO 2 

140 HOVE 318,16 

150 ORAL’ x!,y!,2 

160 NEXT:SOUND 1,50.2,IS,,,2:P 

LOT ,;,yl ( rdDRAUR S,5,c:RETURN 



10 REN desintegracion 

8,36 

ISO LOCATE 15,IS:PEN 2: e RIN T S 

20 REN por pits 

100 SYMBOL 132.0,16,0,36,0,32, 

TRINSf(LEN(palabrat),CHRK13!1 

30 NODE 1:INK 1,15:INK 2,20:IN 

4,0 

l 

K 3,21 

110 SYMBOL 133,0,0,0,0,0,0,0,0 

190 FOR n=l T 0 200:NEXT 

40 LOCATE 2,5:INPUT "Introduce 

120 LOCATE 15,IS:PRINT palabra 

200 J3CATE 15,15:PEN 3:PRINT S 

palabraT *,palabra$ 

J 

JRJNGIvLENt palabrat5 CHStt132' 

50 palabrat=UFP£R$(palabrat' 

130 at=INKEYt 

) 

60 LOCATE 2,5:PRINT"para desin 

140 IF at="3* THEN 160 

210 POR 3=1 T 0 200:NEXT 

tegracion pulsa tec la 3" 

ISO GOTO 130 

220 LOCATE 15,15:PEN 4:;PRINT 

70 SYMBOL AFTER 100 

160 LOCATE 15,15:PEN UPRINT S 

STRINGt!LENt palab r al5,CHS$(133 

80 SYMBOL 130,24,40,68,34,90,3 

TRING$(LEN(palabra$),CHRt(130' 

)) 

6,66 


230 FOR n=t TO 200:NEXT 

90 SYMBOL 131,16,68,40,66,40,6 

170 FOR n=! TO 200:NEXT 

240 INK 1.24:PEN 1 


Desintegracion 

Por: P&M 

Este programa, aparte de flgurar 
en primer lugar en la lista de 
trucos de padre desconocido, 
pulveriza en la pantalla unos 
caracteres consiguiendo un efecto 
de desintegracion que ya quisieran 
tener muchos juegos comerciales. 

Es increible 
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JUEGOS 


HYDR OFOOL 

Una pecera 
pm e set 
peligrosa 

Creado por F.T.L. 

Distribuye Zafiro Tel.: 459 30 04 


-En la vida, una persona puede verse metida 
en las mas extranas situaciones. La que le ocurrio 
a Sweevo era realmente rara, aunque debemos 
tener en cuenta que nuestro pequeno personaje 
no era precisamente una persona, sino un 
simpatico androide. El caso es que Sweevo se vio 
en la dificil tarea de vaciar de agua el planeta 
Deathbowl que, sin razon aparente, se habia 
convertido en un gigantesco acuario. El sistema 
para conseguir esto era quitar todos los tapones 
que encontrara en las grutas que los hubiera. 
Aunque esto parecia a simple vista una tarea facil 
y sin complicaciones, Sweevo descubrio 
rapidamente que esta idea distaba mucho de la 
realidad. Las anemonas, las medusas, las 
lampreas, ademas de todo tipo de bicho marino, 
se empenaron en ponerle cuesta arriba su mision. 

,iNos vamos a quedar cruzados de brazos 
mientras Sweevo arriesga su vida? 

Claro que no. Le ayudaremos a recoger las 
latas de aceite para que no se oxide, ademas de 
las armas, herraduras de la suerte, y todo tipo de 
utensilio necesario para completar con exito su 
mision. 

Esta claro que el tema de Hydrofool, basado 
en la busqueda y recogida de objetos, esta 
considerablemente visto, pero evidente es tambien 
las pocas veces que el agua ha sido el marco 
donde se ha situado este tipo de aventura. Este 
ambiente esta muy bien reflejado graficamente, 
con un grado de definicion considerable. Los 
colores son variados y estan muy bien utilizados. 
El movimiento refleja, acertadamente, la 
sensacion de flotacion en el agua, ademas de ser 
gracil y natural. 

Hydrofool pertenece a Faster Than Light 
(FTL), y se puede aflrmar que en estas calidas 
fechas jugarlo sera sumamente refrescante. 




Original idad 

ia ei ej ci q 

Graficos 

EH EH QD KJ El 

Movimiento 

EH EH EH EH El 

Sonido 

EH El EH El El 

Dificultad 

EH El EH El □ 

Adiccion 

a a a a □ 

/ Horrible 

¥ V Un rollo V* V Pasable 

V V V V' Bueno V V' V V' Muy bueno 


28 AMSTRAD Semanal 

































KINETIK 
Un mundo casi 

Creado por Firebird 

Distribuye Dro Soft Tel,: 255 45 00 

No disponible todavia en Espana. 

inetik era un mundo practicamente 
ingravido debido a las distorsiones que unos seres 
causaron en su orbita. A partir de ese dia, 
desplazarse por su superficie era toda una 
aventura, mas si tenemos en cuenta que este 
planeta tenia una flora y una fauna poseedoras 
de especies peligrosas. El simple hecho de salir a 
comprar el periodico, o de ir a por un helado, se 
convertia en un asunto de vida o muerte. La 
confederacion galactica pen so que esto no podia 
seguir asi, y decidio enviarte a Kinetik para 
arreglar la situacion. A bordo de tu hidronave 
esferoide llegaste al planeta en el que 
rapidamente pusiste manos a la obra. La mision 
consistia en reunir tres letras, para formar un 
mensaje de paz destinado a Kinemator, senor de 
las fuerzas del cosmos. Solo asi volverian a ser 
restauradas las condiciones naturales de Kinetik. 
Estas tres letras estaban distribuidas por las 43 
zonas del planeta. Tambien podrias encontrar 
por estas unas piezas fundamentales para el 
desarrollo de tu mision, como son: 

— Pantalla deflectora. Protege contra los 
habitantes peligrosos, excepto el ladron, 

— Dispersor quimico. Este arma dispersa a 
los habitantes y, con su acido corrosivo, taladran 
los muros. 

— Impulsores de control EZ. Anulan las 
fuerzas de gravedad, incluso las de friccion y 
salto del planeta, lo cual permite el movimiento 
normal libre. 

— Impulsores anti-gravedad. Anulan la 

gravedad. 

— Sistema teleportivo. Permite la 
teleportacion a cualquier zona, excepto las de 
defensa del Kinemator. 

Como todo medio de transporte, nuestra nave 
consume energia, y esta puede ser recargada 
sumergiendonos en cualquiera de los lagos de 
agua que veremos por el planeta. 

Los enemigos que nos acechan por cualquier 
parte del planeta tienen la insana costumbre de 
chupar nuestra energia. Ademas son inteligentes 
muchos de ellos y nos perseguiran. 

Originalisimo nos ha parecido el tema de 
Kinetik, puesto que, a pesar de tocar el asunto 
de la recogida de objetos, en este caso letras, el 
mundo en el que deberemos realizar esto, es un 
bonito planeta en el que las vegetaciones 
exuberantes, las escondidas cuevas, y las 
construcciones mecanicas, se entremezclan con 
gran acierto y con mejor realizacion. Los graficos 


sin gravedad 

son ricos en color y la definicion es muy buena, 
demostrando que se pueden hacer buenos juegos 
en modo uno. El movimiento refleja bien el 
ambiente practicamente ingravido del planeta, 
gracias a una dosis de imprecision en el manejo 
de la bola. 

Kinetik pertenece a Firebird y, aunque 
todavia no esta disponible en Espana, esperemos 
que este aqui muy pronto. 

Originalidad fTpTi ED M ED 

Graficos [V] E| Ef El ED 

Movimiento ED ED ED El ED 

Somdo ED ED ED ED □ 

Dificuitad ED ED ED ED ED 

Adiccion II ED Eli E ] . 

/ Horrible V' V Un rollo V' V' V' Pasable 

WW Bueno V V' V' Muy bueno 
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RANARAMA 


Pfeijueio 

Saltamontes 

Del mundo de la magia y la 
fantasia nos llega un juego ya 
conocido por nuestros lectores, 
entre otras cosas por su 
dificultad; Rana Rama. Por eso, 
porque es diffcil, Amstrad 
Semanol proporciona un 
cargador para el juego que nos 
va a dar energfa infinita. Se 
acabaron las tribulaciones para 
llegar a] final del juego. 

Es necesana una precaucion 
indispensable para introducir este 
cargador; antes de usarlo teclear 
LOAD” y cargar el programa 
original. Una vez aparecido el 
mensaje READY, teclear y 
ejecutar el cargador, sin mover 
en absoluto la cinta del juego del 
lugar donde se detuvo 
anteriormente. 



CINTA 


10 REH cargador de cinta para Ranar 
aiaa 

20 MODE I:INPUT "Energia infinita ( 
s/n) :\a$;IF UPPE«$(a$)="S" THEN e 
r<=l 

30 MODE i;BORDER 0:M 0,0:L0CATE 1 
-3 s 12:PRINT "Espera por favor" 

40 MEMORY S000' 

50 FOR a=40000 TO 40015:READ bt POKE 
a,b:NEXT a 
60 CALL 40000 


70 IF en THEN POKE 45E95,O:P0KE J5E 
56:0:POKE &5E37,0:POKE 57866,518 
80 CALL &5ABS 

30 DATA 62,50,33,167,0,205;104,188. 
62,22,17 0,128,33,0.25,205,161,188 
201 


MONTY AUF 


lYlH'JliTOl 

Elfin 

del prindpio 


Un juego que culmina, por 
ahora, la saga de Monty, el 
simpatico personaje que ya ha 
sufrido un sinffn de aventuras. El 
cargador nos ofrece tres cosas; 
enemigos inmoviles, martillos 
pilones inmoviles e inmunidad a 
los enemigos. Poco mas se puede 
pedir. 


CINTA 

10 REN Cargador de Auf Wiedershen, 
fkmt-y 

20 X 00E 2:INPUT 'Enemigos inmoviles 
(s/rd : fi ,a$;IF VFFER$Ca4)="8" THEN 
POKE 0.0 

30 INPUT "MartiIlos pilones insovil 
es (s/n) U.aillF UPPER$(a$)= *S" T 
HEN POKE 1,6 

40 INPUT "Inmunidad a los enemigos 
(s/n) :*,a$:lF UPPER$(a«=*S* THEN 
POKE 2,0 

SO FOR 1=58040 TO 58088:READ afcPOK 
E i, VAU *4'+at) I NEXT: LOAD".", 5A000: 
POKE 5AC3E,5C3;POKE 5A08F,540:POKE 
5AC30,0:CALL 58070 
60 DATA 33,0,0.57,20,9,32,22,ad,32, 
23, ad, 32, 24, ad, 3a, 1,0,M, 20,9,32,2b 
,ad,32,2c,ad,32,2d,ad,3a,2,0,57,20, 

9,32,3a,ad,32,3b,ad,32,3c,ad,c 3,0,8 
0 

70 DSTA 21,0,aO,II,0,1,1,0,4,ed.bO, 

2 i, 40,80,11,4 0,0,!, 3 0,0, e d, b 0, c 3,0, 


V 

x *Y 

^ \ 


***•’ 


PAUTRON 


Sin problemas 

Vidas infinitas y energfa 
infinita nos permite conseguir 
este cargador para el juego 
Palitron, una de esas 
producciones que, por su interes 
y dificultad, no pierden ni un 
apice de horas gastadas frente a 
ellos tratando de eliminar a los 
insidiosos enemigos que nos 
acechan. 



CINTA 


10 RE* Cargador se Palitror, 

20 NODE 2:INPUT "Vidas infinitas Cs 
/n) :",a«: IF VPPER*(at)="S" THEN P 
0KE 0,0 

30 INPUT "Energia infinita (s/n) :* 
,a$:IF UPPER$(ai)="S" THEN POKE 1,0 

40 MEMORY 10000 

50 BORDER 0:M0DE 0:FOR i=0 TO TSlRE 
AD a:INK i,a:NEXT:LOCATE 3,12:PRINT 
* 1oading PALITRON":LOAD"",54000:F0 
R i=58900 TO 58969:READ at:POKE i.V 
AL("5"+a$):NEXT;CALL 58900:DATA 0,2 
6,13,10,23,7,5,6,15,14,4,8,17,16,2, 

1 

60 DATA 21,0,c0,11,0,40,3e,16,cd,a! 

, be, 21,0, i, 11, a4,87,3e, 16, cd, al, be, 
3e,2,cd,e,be,1,0,0,at,cd,32,be,1,0, 
0,3e,i,cd,32,bc,2i,0,c0 
70 DATA l!,e4,23,3e,16,ed,al,bc,3a, 
0,0,b?,20,12,32,24,24,32,25,24,32,2 
6,24,32,27,24,32,28,24,32,29,24,3a, 

1,0,b7,20,9,32.ie,34,32,If,34,32,20 
,34,21,0,c0,11,9c,8c,l,e4,23,ed.bO, 
£3,0;1 
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UEGQS 



a Mancha, Espana, abril 
de 1605... 


Eres don Alonso Quijano, 
un hidalgo manchego del 
siglo XVI, cuya debilidad 
son las novelas de caballerias. 
Todo va mas o menos bien 
por tu casa, hasta que un dfa 
tu locura alcanza el punto 
culminante: decides coger las 
armas y salir a correr 
aventuras por la Mancha. 
jVaya ideas extrahas que 
dene el hidalgo! Te consigues 
un escudero, Sancho Panza, 
que, aunque no es gran cosa, 
te ayudara en los momentos 
dificiles. A partir de este 
momento entraras en las mas 
increibles aventuras que te 
puedas imaginar. Ventas, 
colinas, bosques y posadas 
seran testigos de tus mas 
locas ideas, tales como atacar 
molinos o enfrentarte a fieros 
leones. 

Tu objetivo final es 
conseguir los amores de 
Dulcinea del Toboso, tu 
dama. Aunque existe un 
primer objetivo que es 
armarte Caballero, para poder 
asf comenzar tus desventuras. 


Como se juega al Quijote 


Don Quijote 
de la Mancha 

«En un lugar de la Mancha, de cuyo nombre no 
quiero acordarme, no ha mucho tiempo que vivia 
un hidalgo de los de lanza en astillero, adarga 
antigua, rocin flaco y galgo corredor. Una olla de 
algo mas vaca que carnero...» 


Creado por Dinamic 

Tel.: 314 18 04 

Distribuido por Erbe 

Disco: 2.200 ptas. 

Cinta: 875 ptas. 


Don Quijote de la Mancha 
es una aventura grafico 
conversacional que, a causa 
de su complejidad, esta 
dividida en dos partes. Debes 
acabar la primera parte para 
conseguir un codigo que te 
permitira jugar en la segunda 
parte. 

Esta aventura consta de un 
complejo sistema de 
reconocimiento de frases, y 
aunque la estructura basica 
cjue debes teclear es 
verbo + nombre, tambien 
aceptara y entendera frases 
separadas por signos de 
puntuacion y frases que 
incluyan artfculos, 
preposiciones y adverbios. 

He aqui una muestra de lo 
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Solution de la parte I 


jComo salir de la primera pan- 
talia? 

Leer el libro 

jComo salir de la casa? 

Abrir la puerta, llevando la lla- 


f Donde encontrar la vela? 
n la escalera de la posada (17). 

Examiner el candelabra, ea¬ 
ger la vela. 


jComo arreglar la cerradura en 
la pantalla 9? 

Llevando el martillo, arreglar la 
puerta. 


ve. 

jDonde esta la Have? 

En la alacena de la cocina (4). 
jComo abrir la alacena? 

Abrir la alacena, llevando 
puesta la armadura. Luego, 
examinar la alacena v coger 
fa Have. 

jDonde esta la armadura? 
Examinar el baul (3), ponerse 
la armadura. 
jQue hacer ahora? 

Leer el bando (32) y seguir sus 
instrucciones. 


Modos de conseguir 
energia: 

• Comiendo el currusco de pan 
(pantalla 7). 

• Comiendo el niscalo. Exami¬ 


nar el suelo, arrancar niscalo, 
eager niscalo (pantalla 44). 

• Comiendo la manzana. Para 
que caiga del arbol en la pan¬ 
talla 43: mover arbol. 

• Comiendo la gallina que se 
encuentra en la pantalla 10. 






jDonde estan las armas? 

En el comedor de tu casa (7). 

Examinar la pared, coger la 
espada. 

jComo velar las armas? 

En el patio de la venta (10) He- 
vando las armas y una vela. Y 
luego velar las armas. 



*—— - ——■— - —--- 

Solution de la parte II 


Frase de acceso: El inge- 

nioso hidalgo 

jComo salir de la pantalla 2? 

Dormir. 

jQue hacer ahora? 

Has de elaborar el Balsamo de 
Fierabras. 

Examinar papiro te sera de uti- 
lidad. 

jDonde esta la sal? 

En el molino (11). 
jComo entrar al molino? 

Entrar al molino cuidadosa- 
mente (precavidamente, cau- 
telosamente, con cuidado) 

(4). 

jComo coge la sal? 

Examinar sacos, coger sal. 

jDonde esta el romero? 

En la pantalla 24, coger rome¬ 
ro. 

jDonde esta el aceite? 

En la pantalla 12. 
jComo entrar a la pantalla 12? 
Abrir puerta estando en la pan¬ 
talla 34 y llevando la Have. 
jDonde esta la Have? 

En la cama de la habitacidn 16. 
jComo coge la Have? 

Hacer cama. Coger Have. 
jComo entrar en la pantalla 15? 



Llevando puesto el yelmo de En el barbero (13), cantar, o 
Membrino (bacia). silbar, o toser, o estornudar 

jDonde encontrar la bacia? para que e! barbero venga y se 


Modos de conseguir 
comida: 

• Comiendo la barra de pan 
(11). Examinar pared, exami¬ 
nar estante, coger pan. 

• Comiendo el bacalao (12). Ir 
a la pantalla 12, llevando el cla- 
vo (43). Examinar armario, 
abrir armario, coger bacalao. 

• Comiendo las bellotas. Mo¬ 
ver arbol en la pantalla 21. 


• Comiendo las moras. Exami¬ 
nar arbusto, coger moras en 
la pantalla 25. 

• Si vais muy apurados y lo que 
quereis es ver pantallas, podeis 
beber vino, pero luego no po- 
dreis hacer el Balsamo. 

• Mas vale que no comais ni la 
sal ni el aceite, no alimentan y 
solo sirven para hacer el Balsa¬ 
mo. 
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Como morir: 

• Comiendo la amanita phalloi- 

des. 

• Moviendo el arbol dos veces. 

• Escalar el arbol. 

• Velar las armas sin la vela. 

• Dormir mientras velas las ar¬ 
mas. 

• Luchar dos veces con las ove- 
jas. 


• Ir al oeste en la 42, y al sur en 
la 22 y 21. 

• Pasar el acantilado sin haber 
dejado el tablon. 

• Abrir la alacena sin la arma- 
dura. 

• Sin comer. 

• Entrar en la ventana de la pri- 
mera habitacion. 



Donde esta el martillo? 
n el dormitorio de la posada 
(14). Coger martillo. 
gComo entrar en la posada del 
osque? 

Llamar a la puerta. 

Como conseguir el vino? 
uchar contra los odres (16), 
llevando la botella, 
gComo conseguir la botella? 
Atravesando el muro de la pan- 
talla 22. 

Como atravesar el muro? 

ejar pedrusco, subir pedrus- 
co, escalar muro, coger bote¬ 
lla. 

gComo conseguir el pedrusco? 

asando el acantilado en la pan- 
talia 45. 

gComo pasar el acantilado? 

'ejar el tablon, oeste. 

En la escalera de tu casa (5). 
Examinar escalera, examinar 
escalon, coger escalon. 

Que hacer ahora? 
r a la pantalla 27. 
gQue hacer en esta pantalla? 
Luchar contra las ovejas, este. 


K 

& 


f, 


deje la bacia. Coger bacia, po- 
ner bacia. 

gDonde coger el vino? 


Lo tienes de la parte 1, haz un 
inventario y lo veras. 
gDonde hacer el Balsamo? 


En la cueva de Montesinos (41). 
gC6mo encontrar el caldero? 
Cavar llevando la pala (41). 
gDonde esta la pala? 

Coger pala (3). 

gComo entrar a la cueva? 

Cantar en la pantalla 42 para 

amansar al leon. 

gQue hacer con los ingredien- 

tes? 

Echar vino, echar aceite, 
echar sal, echar romero en la 

pantalla 41. 
gQue hacer ahora? 

Remover Balsamo llevando la 
ramita. 

gDonde esta la ramita? 

En la copa del naranjo (60). 
gComo subir al naranjo? 

Subir o escalar naranjo desde 
la pantalla 29. 

$Y ahora? 

Beber Balsamo para curarte 
de la caida en la pantalla 2. 
gYa esta? 

Casi, solo te queda ir a la pan¬ 
talla 12 y hacer cualquier tonte- 
ria. Vendra Dulcinea y habras fi- 
nalizado tu mision. 


• N, S, E, O, subir estando en 
la copa del naranjo. 

• O en la 42 si no se ha cantan- 
do antes. 

• Cantar dos veces en la pan¬ 
talla 42. 

• Luchar ovejas en la 1. 

• Luchar monjes en la 2. 

Nota: los numeros que apare- 
cen entre parentesis correspon- 
den al numero de pantalla. 






Como morir: 

• Entrar molino. Si no pones el 
adverbio una de las aspas te ha- 
ce anicos. 

• Luchar molino. Lo mismo que 
antes. 

• Escalar arbol. Menos el na¬ 
ranjo. 

• Golpear dos veces la encina. 

• Golpear cualquier arbol. 
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ESPECIALMENTi PARA ESTE JUEGO 

At fraterss de un programa conversacional, las valoraciones de Don 
Quijote de la Mancha tienen que ser diferentes al rest©. Un aspecto 
crucial es la posihilidad de que el ordenador entienda un lenguaje 
natural, con articulos, adverbios, etc., ademas de los verbos y sus- 
tantivos. Por supuesto, tambien deben tenerse en cuenta los grafi- 
cos que acompahan al texto y la adiccion que la aventura produce. 
En cambio, cosas como el movimiento y el sonido pasan a un segundo 
piano. 


Lenguaje 

EH EH ED ED Q 

Graficos 

m E3 E] El □ 

Adiccion 

E3 rn EJ ED □ 

/ Horrible 

//Un rollo VW Pasable 

V / / /Bt 

aeno V' V' Muy bueno 



que Don Quijote es capaz de 
entender: Examinar la 
estanteria, Coger el libro de 
caballerias, Abrir la puerta, 
Bajar la escalera 
rapidamente, Luchar contra 
el molino de viento, Atacar 
al leon con la espada. Los 
adverbios serviran para 
especificar como deseas que 
una aecion sea efectuada. 

Otros comandos que te 
seran de utilidad son: 

Grabar: Graba tu posicion 
actual a disco o cinta. Los 
poseedores de Amstrad 6128, 
664, podran grabar su 


posicion actual en disco. Los 
poseedores de un Amstrad 
464 se tendran que limitar a 
grabar en cinta. Al teclear 
esta opcion el ordenador te 
hara unas preguntas. 

Cargar: Carga una 
posicion previamente 
grabada. Funciona como el 
comando grabar. 

Modo: Te permite elegir 
entre jugar en modo grafico 
o en modo texto. Escogiendo 
la primera opcion la aventura 
mostrara junto al texto el 
respectivo grafico. La 


segunda opcion unicamente 
mostrara textos. 

M o Mirar: Con esta 
opcion el ordenador 
redescribira la localizacion en 
que te encuentras. 

I o Inventario: Esta 
instruccion te dara un listado 
de los objetos que llevas 
contigo. 

Acabar: Reiniciar la 
aventura. 

Ayuda: En algunos casos 
puede ser de utilidad. 

Y antes de acabar, 
recordarte que no eres un 
superheroe y necesitas, como 
todos los mortales, 
alimentarte. Si no efectuas 
esta accion regularmente es 
probable que no te aguantes 
mucho tiempo en pie. 

Para moverte por el juego 
recuerda que has de teclear 
la direccion que quieres ir o 
una abreviacion. ir sur o sur 
o S. 

Para las personas que 
entren en el mundo de las 
aventuras con Don Quijote, 
he aquf una lista de verbos 
utiles: examinar, luchar, 
abrir, coger, dejar, poner, 
comer, dormir, y muchos 
mas que no te decimos para 
que vayas probando tu 
mismo. 

Un dato importante sobre 
este juego es que esta creado 
mediante G.A.C. (Graphic 
Adventure Creater), un 
programa que genera 
aventuras conversacionales, 
creado por la empresa 
britanica Incentive Software. 

Y finalmente... 

Recuerda que una 
aventura no se acaba en un 
dia. Poco a poco iras 
descubriendo nuevas cosas 
que te ayudaran a solucionar 
eljuego. 

Don Quijote ha sido 
elaborado teniendo en cuenta 
el relato de Cervantes, 
aunque sin seguirlo al pie de 
la letra. Por esta razon te 
recomendamos que leas la 
magnffica novela del Manco 
de Lepanto, o mires en la 
television la serie que sobre 
este libro se ha hecho. 
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Concurso de 
diseno grafico 
por ordenador 
Amstrad Semanal 


C 

rear imageries en una pantalla siempre 
es un desaffo a la imaginacion, a la creatividad 
y a la peripecia programando. Por todo 
ello, AMSTRAD Semanal organiza 
entre todos sus lectores un concurso dc diseno 
grafico sujeto a las bases que se detallan mas 
abajo. 




Bases del concurso 


1. Entran a concurso todos los Amstrad 
CPC, PCW y el PC. 

2. Se establecen tres categorfas distintas 
dentro del concurso, cada una de ellas 
correspondiente a cada uno de los ordenadores 
citados en el punto 1. Hemos elegido este metodo 
para que ninguno cle los concursantes se 
encuentre en desventaja debido a que las 
capacidades graficas de su maquina scan menores 
que las de otro modelo Amstrad. 

3. El concurso se refiere solamente a disenos 
graflcos efectuados en pantalla, aunque no 
importa el metodo escogido para generarlos. Es 
posible cmplear cualquiera de los programas de 
diseno grafico comcrciales que existen, am como 
crear la imagen empleando un programa en Basic 
o Codigo Maquina. 

4. Las imagenes se enviaran a nuestra 
redaccion en cinta o disco, y pueden ser un 
programa Basic que las genere, un bloque de 
bytes o el metodo que se considere mas 
adecuado. teniendo en cucnta que el jurado que 
elija los ganadores solo considerara lo que se vea 
en pantalla a nivel grafico: ni sonido, ni 
animacion. 

5. El jurado, constituido por profesionales del 
diseno, ilustracion y programacion, observara 


cada una de las pantallas durante el tiempo 
necesario y mediante los metodos que estime mas 
oportunos, seleccionando los ganadores. Su 
decision sera inapelable. 

6. El plazo de recepcion de las pantallas 
finalizara el dfa 1 de septiembre de 1987. 

7. Ninguno de los disenos enviados se 
devolvera al remitente. AMSTRAD Semanal se 
reserva los derechos de publicacion de los mismos 
en el moment o y condiciones que estime 
oportunos, citando a su autor. 

8. Los ganadores se haran publicos en la 
segunda quincena del mes de septiembre de 
1987, a traves de la revista AMSTRAD Semanal. 

9. En total, se entregaran nueve prernios, dos 
por categorra. Los primeros seran los siguientes: 

Amstrad CPC: UN DIGITALIZADOR DE 
VIDEO 

Amstrad PCW: TABLET A GRAFICA 
GRAFPAD 

Amstrad PC: TABLETA GRAFICA 
GRADPAD-5 

y los segundos, dos para cada categoria, seran 
unas excelentes cadenas musicales alta Fidelidad y 
estereo. 

10. El simple hecho de participar en el 
concurso presupone la aceptaeion incondicional 
de sus bases. 

Nuestra direccion es: 

AMSTRAD Semanal. 

Carretera de Irun, km. 12,400. 

28049 Madrid. 

REFERENCIA: CONCURSO GRAFICO 

AMSTRAD SEMANAL. 

























PRESUPUESTOS 

de Informatica Grotur S.A. 
P.V.P.: 18.600 ptas. 

Presupuestos es un programa 
de gran utilidad para todas las 
empresas que deseen almacenar 
los presupuestos de los artfculos 
con los que trabajan y 
confeccionar las 
correspondientes facturas, que 
pueden ser impresas con las 
correcciones que consideren 
convenientes los usuarios. 

Este programa de facil 
manejo esta pensado para que 
se pueda seguir con las 
instrucciones de pantalla, no 
obstante es imprescindible 
aclarar una serie de cuestiones. 
Cuando sea la priinera vez que 
se utilice el programa hay que 
iniciar el disco de ficheros. Para 
ello se carga en memoria la 
cara A del programa, se 
introduce un disco formateado o 
bien la cara B del disco de 
Presupuestos. Se elige la opcion 
6: crear ficheros, y el programa 
advierte de la creacion del 
fichero para comenzar a 
trabajar. 

Orden de trabajo 

A1 principio solo se 
introduciran los datos de la 
empresa o bien se modificaran. 
Seguidamente hay que dirigirse 
a la opcion 9 y almacenar los 
correspondientes artfculos segun 
instrucciones. 

Movimientos por campos 
y salida a menu general 

Para saltar de campo en 
sentido normal de peticion de 
datos, se pulsara Return. Si lo 
deseado es desplazarse a un 
campo que ya ha sido aceptado, 
se pulsara el «0» del teclado de 
numeros. 


El regreso al menu principal 
se hace desde la primera 
peticion, y el procedimiento 
empleado sera mantener pulsada 
ALT mientras se hacen tres 
pulsaciones en el «0». 

Nuevo disco: 

Si en cualquier momento se 
quiere iniciar un nuevo disco de 
ficheros, primero debe 
formatearse y luego seguir las 
instrucciones generales 
expuestas en pantalla. 

Datos de la empresa 

Con la opcion de Introduction 
de datos utilizada en la aplicacion 
del programa por primera vez, 
se introducen los datos de la 
empresa que apareceran siempre 
en las cabeceras si el usuario lo 
desea. 

Tambien es posible modificar 
posteriormente los datos de la 
empresa con otra opcion 
especffica. 

Presupuestos 

En la opcion de Creacion de 
presupuestos, el programa 
preguntara por que numero de 
presupuesto quiere comenzar. 
Seguidamente pedira los datos 
del cliente al cual se pretende 
realizar el presupuesto. 

Los datos aceptados son 
inmodificables y el presupuesto 
se considera desde ese momento 
creado. Solo son necesarios los 
cuatro primeros numeros de 


codigo de artfculo, la cantidad 
presupuestada y el tipo de 
precio aplicable. 

Se incluye una opcion de 
lectura aconsejable de ser 
utilizada antes de dar de baja 
un asiento del presupuesto 
entero. 

Tambien se cuenta con la 
posibilidad de modificar las 
cantidades y el tipo de precio de 
los correspondientes apartados 
del presupuesto y dar de baja 
un asiento. 

Respecto a la opcion de 
Creacion de ficheros , se utilizara 
cada vez que se emplee por 
primera vez un disco de 
ficheros. 

Listado 

Se podran confeccionar las 
listas de precios a discrecion, asf 
como imprimir los presupuestos 
y facturas. con la posibilidad de 
elegir el IVA a cobrar. 

Artfculos 

La opcion de artfculos nuevos 
sirve para la introduccion de los 
mismos con el codigo 
correspondiente, descripcion, 
tres tipos de precios, etc. 

Es importante la codificacion 
de artfculos de forma comoda y 
util para el usuario. 

El programa incluye una 
opcion de Lectura y consulta de 
articulos almacenados. 

Puede utilizarse en cualquier 
momento la opcion de 
Modification de precios, 
descripciones , etc., asf como dar 
de baja los artfculos de los que 
se prescinda. 

Consejos y observaciones 

Si se consigue una buena 
codificacion numerica, la opcion 
de Listado de precios y articulos 
sera aprovechada en toda su 
amplitud. 

Se observa que en cada 
artfculo se da opcion a 
introducir el nombre del 
capftulo. Esto se debe a que el 



























usuario puede introducir varios 
titulos para un mismo capitulo, 
de forma que en el listado del 
presupuesto aparecera aquel que 
posea el primer articulo que se 
introduzca en cada capitulo. 

CONTABILIDAD 

\ GENERAL 2 

de RFA Systems Inc. 

P.V.P. (8256): 19.600 ptas. 
P. V.P. (8512): 21.840 ptas. 

Este programa de 
contabilidad esta de acuerdo con 
el Plan General Contable 
Espanol (PLACON) y reune las 
caracteristicas necesarias para 
gestionar la contabilidad de 
cualquier pequena o mediana 
j empresa. 

Si se dispone de un PCW 
8512 o de un PCW 8256 
ampliado con la segunda unidad 
de disco, el programa alcanza la 
capacidad de 4.000 cuentas con 
asiento y movimientos 
ilimitados. 

El programa esta realizado en 
lenguaje M-Basic, compilado 
posteriormente para mayor 
rapidez de ejecucion. 

Caracteristicas generales 

Contabilidad general 2 

puede disponer de hasta 96 
conceptos auxiliares que el 
| usuario crea a su gusto. 

Previamente a su utilization, 
se debe configurar el programa 
para su funcionamiento con 
una, dos o tres unidades de 
disco; tanto los niveles como los 
digitos por nivel y cuenta son 
programables por el usuario. 

Un detalle a tener en cuenta 
es que incluye una calculadora 
para realizar operaciones sin 
necesidad de salirse de la 
aplicacion. 

Es de destacar que en 
configuraciones ilimitadas no 
hay perdida de apuntes 
contables. 

H 

En el caso de producirse 
cortes energeticos o desconexion 
involuntaria del ordenador solo 
se ocasiona una perdida minima 
de datos. 

Como dos ultimas 
caracteristicas importantes 
estan, en primer lugar, la 
posibilidad de correction de 
articulos en cualquier momento 





y, en segundo lugar, el 
tratamiento especilico del IVA, 
advirtiendo en cualquier caso de 
la cercana saturation de los 
licheros de datos. 

Apartado de cuentas 

El programa dispone de un 
tratamiento programable de 
grupos y subgrupos de cuentas, 
ademas de la posibilidad de 
creation automatica de cuentas 
de nivel. 

El menu contiene una serie 
de opciones: altas, bajas, 
consultas, modificaciones, 
listados, etc. 


Apartado de asientos 

Dentro del tratamiento de 
asientos, permite la 
contrapartida directa, asi 
como la confirmation de 
cuentas por description en el 
caso de contar con un PCW 
dotado de dos o mas unidades 
de disco. 

Asimismo se dispone de una 
option para el cuadre por 
asientos, pudiendose realizar el 
trabajo en tiempo diferido. 

El menu de apartado de 
asientos incluye la introduction 
de asientos, modificaciones y 
consultas. 

Diario de movimientos 

Contabilidad general 2 

clasifica los diarios de 
movimientos: 

Diarios consultas: dcstaca la 
posibilidad de obtencion del 
ultimo diario sin modification 
de ficheros. 

Diario definitive, para la 
actualization de los datos 
contables haciendo defmitivos 
los asientos de dicho diario. 

Diario retrospectivo: en el caso 
de datos ilimitados o de no 
haber sobrepasado los limites de 
la configuration actual, se podra 


obtener el diario de cualquier 
dia del ejercicio. 

Listado, cierres y aperturas 

El programa proporciona 
listados de cuentas, conceptos, 
fichas de Mayor, fichas de 
detalle, libros de registros, 
relation de IVA, cobros, pagos, 
balances programables, etc 



Necesitamos personas 
que conozcan 
profundamente el 
Amstrad PCW a nivel 
de Basic, Lenguaje 
Maquina y Locoscript. Se 
valoraran conocimientos 
de CP/M. Si usted es una 
de estas personas, 
pongase en contacto con 
nosotros rapidamente en 
la direccion que se indica 
a continuation, poniendo 
en un lugar muy visible 
del sobre: 

Referencia PCW 
AMSTRAD Semanal. 
Nuestra direccion es: 
AMSTRAD Semanal. 
Carretera de Inin, km 
12,400. Fuencarral. 
28049 Madrid. 

















CONCURS© 
MUSICAL — 




Sweet Georgia Brown 

Por: Silverio Macias 


El ritmo y la armonia de la 
composicion que nos manda 
Silverio Macias dan como resultado 
un conjunto bastante agradable de 
escuchar. Le damos la enhorabuena 
por los magnificos radiocascos 
que recibira. 



i ■ 

3 ' 

5 ' 

7 ‘ 

SO DEFINT a-s:0IH c(72),b(16),d(16) 
,f<16),h(16):SOUND 7,0,26,0 
20 FOR j=0 TO 12:READ c(j):NEXT 
30 FOR j=!3 TO 72 
40 c(j)=c(j-12)/2 
SO NEXT 

60 NODE 1:PAPER OlPEN 1:INK 0,0:INK 
1,26:BORDER 0:CLS:LGCATE II,12:PRI 
NT'SVEET 6E0R6IA BROUN':LOCATE 11,1 
3:PRINT STRING*!19,208):LOCATE 1,1 
70 ENV 1,3,S,1,1,0,7,3,-S,1:ENV 2, 

3.5.1.2, -1,1,1,0,18,3,-4,l;ENV 3,1, 
0,13:ENV 4,1,15,1,1,0,12:ENV 5,1,0, 
26:ENV 6,1,15,1,1,0,7,5,-3,l:ENV 7, 
1,15,1,1,0,12 

80 G0SUB 180:60508 180:ENV 4,3,5,l, 
2,-l,l,l,0,8:ENV 6,1,13,1,1,0,10,2 
-6,1;ENV 7,1,13,1,1,0,12:G0SUB 180 
30 ENV 4,1,15,1,1,0,12IENV 6,1,15,1 
,1,0,7,5,-3,1:ENV 7,1,15,1,1,0,12:R 
EST0RE 460:60906 180 
100 ENV 1,3,5,1,1,0,10,3,-5,i:EDV 

2.3.5.1.2, -1,1,1,0,24,3,-4,l!ENV 3. 
1,0,16:ENV 4,1,15,1,1,0,15IENV 5,1, 
0,32:ENV 6,1,15,1,1,0,10,5,-3,l:ENV 

7,1,15,1,1,0,15 


110 RESTORE 630:60S0E 180:ENV 1,3,5 
,l,1,0,13,3,-S,l:ENV 2,3,5,1,2,-1,1 
,1,0,30,3,-4,1:ENV 3,1,0,19:ENV 4,1 
,15,1,1,0,18IENV 5,1,0,38.‘ENV 6,1,1 
5,1,1,0,13,5,-3,1:ENV 7,1,15,1,1,0, 
18 

120 60S0B 180:ENV 1,3,5,1,1,0,19,3, 
-5,l:ENV 2,3,5,1,2,-1,1,1,0,42,3,-4 
,1;ENV 3,1,0,25:ENV 4,1,15,1,1,0,24 
:ENV S,1,0,50:ENV 6,1,15,1,1,0,19,5 
,-3,1:ENV 7,1,15,1,1,0,24:60SU6 180 
130 S0UN0 49,c(25),25,15:SOUND 28,t 
(29),25,15:S0UND 42,c(32),25,15:S0U 
NO 7,0,2S,0:REST0RE 640 
140 ENT-1,1,0,6,1,2,6,1,-3,6,1,1,6: 
FOR j=l TO 10:READ a,d 
150 SOUND 2,c(a),19td,15,0,l:NEXT 
160 SOUND 49,c(25),133,15,0,1:SOUND 
28,c(29),133,15,0,1:SOUND 42,c(35) 
,133,15,0,l:F0R o=l TO 6000:NEXT 
170 END 

180 READ ■UIF «1=-1 THEN RETURN 
190 READ pl,ql,rl 

200 s1=2-34(■1=0);s2=2-3t(p1=0):s3= 
2-3i(ql=0):s4=2-3*(rl=0) 

210 READ a:r=l:F0R j=l TO a 
220 READ b(j),d(j) 

230 FOR n=l TO d(j) 

240 f(r)=b(j) 

250 IF f(r)=0 THEN h(r)=3:60T0 280 
260 IF d(j)=l THEN h(r)=l:60T0 280 


270 IF n=l THEN h(r)=4 ELSE IF n=d( 
j) THEN h(r)=6 ELSE h(r)=7 
280 r=r+l:NEXT:NEXT 
290 READ a:r=l:F0R j=l TQ a 
300 READ b(j),d(j) 

310 FOR n=l TO d(j) 

320 fl(r)=b(j) 

330 IF fl(r)=0 THEN hl(r)=3:G0T0 36 
0 

340 IF d(j)=l THEN hl(r)=l:6GT0 360 
350 IF n=l THEN hl(r)=4 ELSE IF n=d 
(j) THEN hl(r)=6 ELSE hl(r)=7 
360 r=r+l:NEXT.'NEXT 
370 SOUND 49,c(nl),0,0,sl;SOUND 42, 
c<f(l)),0,0,h(l);SOUND 2,c(f(2)),0, 
0,h(2):S0UND 28,c(fl(l)),0,0,hl(l): 
SOUND 4,c(fl(2)),0,0,hl(2) 

380 SOUND 1,t(pi),0,0,s2:SOUND 2,c( 
f(3)),0,0,h(3):SOUND 2,c(f(4)),0,0, 
h(4).'SOUND 4,c(fl(3)),0,0,hl(3):SOU 
ND 4,c(fl(4»,0,0,hl(4) 

390 SOUND l,c(ql),0,0,s3:SOUND 2,t( 
f(5)),0,0,h(S):S0UN0 2,c(f(6)),0,0, 
h(6):S0UN0 4,c(fi(5)),0,0,hl(S):SQU 
NO 4,c(fl(6)),0,0,hl(6) 

400 SOUND 1,c(rl),0,0,s4:SOUND 2,c( 
f(7)),O,O,h(7):S0UND 2,c(f(8)),0,0, 
h(8):SOUND 4,c(fl(7)),0,0,hl(7):S0U 
ND 4,c(fl(8)),0,0,hl(8) 

410 GOTO 180 

420 DATA 0,956,902,851,804,758,716, 
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676,638,602,566,536,506 
430 DATA 0,,25,,1,,8,1,,8,24,,23,,1 
,,8,1,,8,22,29,22,29,4,34,2,36,2,38 
,2,34,2,1,,8,22,29,22,29,4,41,2,38, 

1.43.2.41.3.1.. 8.22.29.22.29.4.46.2 
,,1,41,2,38,3,l,,8,22,29,22,29,4,34 
,2,,3,34,1,,2,1,,8,19,27,19,27,4,34 
,2,36,2,37,2,34,2,1,,8 

440 DATA 19,27,19,27,4,41,2,37,1,43 
,2,41,3,1,,8,19,27,19,27,4,46,2,,!, 

43.2.41.3.1.. 8.19.27.19.27.4.37.2., 

3.34.1.. 2.1..8.20.27.20.27.4.32.2.3 

4.2.36.2.32.2.1.. 8.20.27.20.27.5.39 
,2,36,1,41,1,,1,39,3,l,,8,20,27,20, 

27.4.44.2.. 1.39.2.36.3.1..8 

450 DATA 20,27,20,27,6,32,2,,1,32,1 
,34,1,32,1,34,2,1,,8,25,29,20,29,3, 

41.2.. 3.37.3.2.37.2..6.25.29.20.29, 

6.37.2.. 1.32.1.34.1.32.1.34.2.2.32, 

2.. 6.25.29.20.29.3.41.2..3.37.3.2.3 

7.2.. 6.17.29.17.29.5.32.1.33.2.41.2 
,39,2,36,1,1,,8 

460 DATA 22,29,22,29,4,34,2,36,2,38 
,2,34,2,1,,8,22,29,22,29,5,41,2,38, 

1.43.1.. 1.41.3.1..8.22.29.22.29.4.4 

6.2.. 1.41.2.38.3.1..8.22.29.22.29.5 
,34,2,,3,34,1,,1,34,1,1,,8 

470 DATA 19,27,19,27,4,34,2,36,2,37 
,2,34,2,1,,8,19,27,19,27,5,41,2,37, 

1.43.1.. 1.41.3.1..8.19.27.19.27.4.4 

6.2.. 1.43.2.41.3.1..8.19.27.19.27.5 
,37,2,,3,37,1,,1,32,1,1,,8,22,29,22 
,29,4,34,2,41,2,,1,41,3,1,,8,17,29, 

17.29.7.39.2.36.1.41.1.. 1.33.1..1.3 

2 . 1 . 1 .. 8 

480 DATA 22,29,22,29,4,34,2,41,2,,1 
,41,3,1,,8,17,29,17,29,5,39,2,36,1, 

41.1.. 1.33.3.1..8.25.25.24.23.5.32, 

1.32.1.34.2.37.2.41.2.1.. 8.22.29.22 
,29,5,44,2,45,1,46,l,,1,44,3,5,38,2 
,38,1,38,1,,1,38,3,19,27,20,27,6,43 
,1,43,1,,2,42,l,42,1,,2,6,37,l,37,1 
,,2,36,1 


490 DATA 36,1,,2,25,25,24,23,3,37,1 
,37,1,,6,3,32,1,32,1,,6,-1,22,29,22 
,29,5,46,2, ,1,46,1,,1,48,3,4,34,2,3 

6.2.38.2.34.2.22.29.22.29.4.48.2., ! 
,46,2,44,3,4,41,2,38,1,43,2,41,3 
500 DATA 22,29,22,29,4,,2,46,2,,1,4 

5.3.4.46.2.. 1.41.2.38.3.22.29.22.29 
,5,46,2,,1,44,2,,1,41,2,4,34,2,,3,3 

4.1.. 2.19.27.19.27.5.46.2..1.46.1., 
1,48,3,4,34,2,36,2,37,2,34,2 

510 DATA 19,27,19,27,5,48,2,,1,46,2 
,,1,44,2,4,41,2,37,1,43,2,41,3,19,2 

7.19.27.4.. 2.46.2..1.45.2.4.46.2..1 
,43,2,41,3,19,27,19,27,6,46,2,48,1, 

46.1.. 1.48.1.46.2.4.37.2..3.34.1..2 
520 DATA 20,27,20,27,4,44,2,44,2,,1 
,46,3,4,32,2,34,2,36,2,32,2,20,27,2 
0,27,5,46,2,,1,44,2,,1,41,2,5,39,2, 

36.1.41.1.. 1.39.3.20.27.20.27.4..2, 

44.2.. 1.46.3.4.44.2..1.39.2.36.3 
530 DATA 20,27,20,27,6,44,2,44,1,46 
,1,,1,44,1,46,2,6,32,2,,1,32,1,34,1 
,32,1,34,2,25,29,20,29,5,49,1,49,1, 

46.2.44.2.40.2.3.41.2.. 3.37.3.25.29 
,20,29,5,39,1,37,1,34,2,37,2,37,2,6 
,37,2,,1,32,1,34,1,32,1,34,2 

540 DATA 25,29,20,29,5,32,1,32,1,32 
,2,34,2,35,2,3,41,2,,3,37,3,17,29,1 

7.29.4.36.2.. 2.36.2..2.5.32.1.33.2, 

41.2.39.2.36.1.22.29.22.29.4.. 2.53, 

2.. 1.52.3.4.34.2.36.2.38.2.34.2 
550 DATA 22,29,22,29,5,53,2,,1,54,2 
,,1,53,2,5,41,2,38,1,43,1,,1,41,3,2 

2.29.22.29.4.. 2.53.2..1.52.3.4.46.2 
,,1,41,2,38,3,22,29,22,29,6,53,2,52 
,1,53,1,,1,52,1,53,2,5,34,2,,3,34,1 
,,1,34,1 

560 DATA 19,27,19,27,4,,2,51,2,,1,4 
8,3,4,34,2,36,2,37,2,34,2,19,27,19, 

27.5.51.2.. 1.48.2..1.46.3.5.41.2.37 
,1,43,1,,1,41,3,19,27,19,27,4,,2,53 
,2,,1,53,3,4,46,2,,1,43,2,41,3 

570 DATA 19,27,19,27,6,51,2,53,1,51 


,1,,1,53,1,51,2,5,37,2,,3,37,1,,1,3 

2.1.22.29.22.29.4.49.2.49.2.. 1.46.3 
,4,34,2,41,2,,1,41,3,17,29,17,29,5, 

53.2.. 1.51.2..1.53.2.7.39.2.36.1.41 
,1,,1,33,1,,1,32,1 

580 DATA 22,29,22,29,4,49,2,49,2,,1 
,46,3,4,34,2,41,2,,1,41,3,17,29,17, 

29.5.53.2.. 1.51.2.53.1.51.2.5.39.2, 

36.1.41.1.. 1.33.3.25.25.24.23.4.49, 
2,49,2,48,2,47,2,5,32,1,32,1,34,2,3 
7,2,41,2 

590 DATA 22,29,22,29,5,46,2,,1,44,2 
,,1,46,2,5,44,2,45,1,46,1,,1,44,3,1 

9.27.20.27.5.41.2.. 1.44.2.41.1.39.2 
,6,43,1,43,1,,2,42,1,42,1,,2,25,25, 

24.23.2.37.2.. 6.3.37.1.37.1..6 

600 DATA -1,29,,,,4,10,2,10,2,14,2, 

17.2.2.26.2.. 6.....4.20.2.19.2.17.2 
,14,2,1,,8,29,,,,5,10,2,10,1,10,1,1 

4.2.17.2.2.26.2.. 6.....4.20.2.19.2, 

17.2.14.2.1.. 8.22....4.15.2.15.2.17 
,2,18,2,2,31,2,,6 

610 DATA 0,,,,5,19,2,18,1,17,2,16,1 
,15,2,l,,8,22,,,,5,15,2,IS,1,15,1,1 

7.1.18.3.2.31.2.. 6.....5.19.2.18.1, 

17.2.16.1.15.2.1.. 8.24....4.8.2.10, 

2.11.2.12.2.2.27.2.. 6.....4.18.2.17 
,2,15,2,12,2,1,,8,24,,,,5,8,2,10,1, 

11.2.8.1.12.2.2.27.2.. 6 

620 DATA 0,,,,4,18,2,17,2,15,2,12,2 
,1,.8,20,,,,4,13,2,15,2,16,2,17,2,2 
,29,2,,6,,,,,4,23,2,22,2,20,2,17,2, 

1.. 8.20....4.13.2.15.1.16.2.17.3.2, 

29.2.. 6.21...21.4.5.2.6.2.7.2.8.2.3 
,24,2,,4,24,2,-1 

630 DATA 25,25,24,23,5,32,1,32,1,34 
,2,37,2,41,2,1,,8,-1,22,29,22,29,5, 

44.2.45.1.46.1.. 1.44.3.5.38.2.38.1, 

38.1.. 1.38.3,-1,19,27,20,27,6,43,1, 

43.1.. 2.42.1.42.1..2.8.37.1.37.1..1 
,20,1,36,1,36,1,,1,20,1,-1 

640 DATA 32,.6,34,.6,37,.8,40,1.7,3 

7.. 5.34.1.32.1.37.1.5.32..5.34.1.5 
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Esta seccion esta dedicada a todas las compras, ventas, clubs de 
usuarios de Amstrad, prugramad ores y , en general, cualquier clase de 
anuncio que pueda sewn de utdidad a los lectores Todo aquel que la 
desee puede enviarnos su anuncio, mecanografiado, HOBBY 
PRESS, S. A. AMSTRAD Semanal. Apartado de Correos 232 
Alcobendas. Madrid. 

IA BS TEN ERSE P1RATAS! 


COMUN 


Cambio juegos, todos 
funcionan perfectamente, 
grabados en disco nuevo por 
primera vez. Absoluta seriedad, 
Escribir a: Francisco Fuentes. 
Pintada Baja, 21. 23440. Baeza, 
o llamar por tel.: (953) 74 01 94 
de las 4 de la tarde hasta las 12 
de la noche. 


Vendo la coleccion completa 
de Video-Basic, que comprende 
20 lecciones de Basic para 
aprender con el Spectrum. La 
coleccion completa consta de 20 
cintas y 20 fascfculos 
explicativos, al precio de 8.000 
ptas. Tambien vendo las 13 
cintas que se publicaron de 
Microhobby-Cassette al precio de 


2.600 ptas., Trans Express 
(programa copiador) al precio 
de 1.000 ptas., y el juego 
Elypersport por 500 ptas. Todos 
para Spectrum 16 K, 48 K, 
Plus. Mi direccion es: Manuel 
Montilla Valverde. Ambar, 6, esc. 
dcha. 3.° A. 28021 (Madrid). 
Tel: 798 02 82. Tambien cabria 
la posibihdad de cambiar todo 
esto por programas para 
Amstrad. 


Intercambio programas para 
ordenadores Amstrad en 
cassette y disco. Prometo 
contestar a todos los que 
envieis. Mi direccion es: Javier 
Perez Estaben. Juan Bautista, 13, 
l.° izqda. Aguilar de Campoo. 


34800 (Palencia). O bien llamar 
al tel.: (988) 12 27 46, a partir 
de las 11,30 h hasta las 14 h. 


Vendo ordenador Texas 
Instruments TI-99/4A (a 
estrenar) y algunos programas 
en cartucho para este 
ordenador. Tel: (911) 22 95 64. 
Preguntar por Felipe. 


Albaclub-Amstrad. En el 

encontraras todos los programas 
que andabas buscando, asi 
como ayuda en la 
programacion, correction o 
confection de listados de 
programas en Basic o Pascal. 




“Sabado Chip”, de 17a 19h. 
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Bases de datos, procesadores de 
texto, disenadores, gestion, 
utilidades, copiones, juegos... Y 
toda la informacion que 
necesites para introducirte en el 
mundo de la informatica en 
software y hardware. 1.500 
programas a tu disposition, 
usuario de Amstrad CPC, 

PCW u PC, IBM. Libros, 
revistas nacionales y 
extranjeras. Albaclub-T ms trad. 

P.° Cuba, 30, 3.° D. 02005 
(Albacete). 


Desearia intercambiar con 
usuarios de todos los CPCs de 
Amstrad juegos y utilidades. 
Estoy especialmente interesado 
en conseguir The Great Escape. 
Interesados escribir a: Juan 
Pablo Gomez. Cardenal 
Monescillo, 19, 4.° A. 13003 
(Ciudad Real). 


Cambio monitor fosforo 
verde GT-65 en buen estado 


para ordenador CPC-464 por 
un monitor en color para el 
CPC-464, pagando la diferencia 
justa. Interesados llamar al tel.: 
2 82 47 de Malaga y preguntar 
por Antonio. 


Compro ampliation de 
memoria DK’Tronics de 64 K 
con su correspondiente disco de 
CPM Plus. Tambien comprarfa 
un joystick con dos disparos que 
funcione. Cambio por otros 
juegos, copiones o utilidades, 
juegos en disco. Interesados 
escribir a: Javier Fernandez 
Alvarez. Perez Ayuso, 19. 28002 
(Madrid) o bien llamar al tel.: 
(91) 415 58 45. 


Desearia cambiar el juego 
3D Gran Prix, por cualquiera 
de los siguientes juegos (en 
cinta): Arkanoid, Xevious, 
Ghost’s Goblins, Spindizzy, 
Camelot Warriors, Commando, 
Rambo, Pyjamarama, Bobby 


Bearing, Winter Sports, 3D 
Tenis..., etc. Interesados 
escribir a: Gerardo Losada. Urb. 
Can Raimi, 12 bis. Tel.: (93) 
797 20 47. Argentona 08310 
(Barcelona). 


Vendo o cambio por otros 
programas, compiladores de los 
lenguajes Pascal y Cobol para 
PCW y compatibles IBM. 
Llamar al tel.: (91) 473 96 57. 
Preguntar por Juan Francisco. 


Club de usuarios del PC y 

compatibles, de Barcelona. Se 
cambian o venden toda clase de 
programas para PC y 
compatibles. Tanto de gestion 
profesional, como de juegos. 
Interesados llamar al tel.: 

235 59 52 de Barcelona, y 
preguntar por Jaime o al tel.: 
258 59 69 de Barcelona, y 
preguntar por Carlos. 




I 


Todos los sabados, de 5 a 7 
de latarde, en “Sabado Chip”. 
Dirigido por Antonio Rua. 
Presentado por Jose Luis 
Arriaza, hecho una 
computadora. Dedicado en 
cuerpo y alma al ordenador, 
y a la informatica. Haciendo 
radio chip... estilo Cope. 
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Mercado 

CCMJN 


Cambiaria, venderfa, 
compraria toda clase de 
programas para PCW 8256 y 
8512 (solo con instrucciones), 
utilidades, gestion, 
compiladores, juegos, gran 
variedad. Contactor Angel. Tel. 
(91) 274 47 07. 


Club Amstrad/Spectrum. 

Me gustarfa contactar con otros 
clubes o particulares para el 
intercambio de programas y 
juegos, tenemos los ultimos del 
mercado. Interesados llamar al 
tel. (91) 612 02 70. Alcorcon 
(Madrid). 


Por cambio de ordenador 
vendor Amstrad 6128 (super 
cuidado), con: cables de 
impresora, cassette, 
separadores, filtro pantalla, 
fundas, 40 discos llenos de los 
mejores y ultimos juegos y 
utilidades, 28 libros de Bibliotecc 
Basica de Informdtica y Gran 
Biblioteca. Amstrad ; todos los 
numeros de Amstrad User y 
Amstrad Accion; casi todos los 
numeros de Amstrad Semonal, 
especiales Micromania, etc...; 
manueles en Castellano e 
instrucciones de los programas; 
libros: Guia del programador, 
CP/M. (Ed. Ra-ma), CPC 
464/6128, consejosy trucos. (Ed. 
Data Becker), CP/M. libro de 
ejercicios. (Ed. Data Becker); 
libros sobre el Dbase II y el 
Wordstar. Joystick. Todo tan 
solo 115.000 al contado. Llamar 
al tel. (91) 474 90 42 (horas de 
comidas y noches). 


Vendo Amstrad CPC 6128 
color, con un ano de 
antiguedad, incluyendo 
manuales, programas de calculo 


de estructuras, supercal, 
tratamiento de textos, Fortran, 
Turbo Pascal, dBase, Cobol y 
varios discos con juegos y 
diversas utilidades. Interesados 
llamar al tel. (91) 551 85 89. 


Desearfa contactar con 
usuarios del Amstrad CPC 
464/472 para intercambiar 
juegos. Tengo mas de 100. 
Tambien me interesan todo tipo 
de copiones. Interesados escribir 
a Ricardo Bans/ Llamazares. 
Herrero, 28, 5.° piso, puerta 
10. 12005 Castellon. Contestare 
a todos. 


Vendo CP 664, lapiz optico, 
joystick, libro de C/M, 
videojuego electronico, y 
multitud de programas en cinta 
o disco. Todo en perfecto 
estado. Interesados llamar a 
Antonio Rubio tel. (924) 

24 31 60. Precio a convenir. 


Vendo digitalizador de video 
VIDI de Rombo, para Amstrad 
CPC 6128, nuevo, con cables 
de conexion, por 25.000 
pesetas. Interesados llamar o 
escribir a: Jeronimo Perez del 
Noval. Granada, 36, 3.° B. 
28007 Madrid. Tel. (91) 

551 65 85. 


Vendo Amstrad CPC 6128 
F.V., 30 discos con los mejores 
programas de mercado 
(Discology, Dr. Graph, Dr. 
Draw, Devpac, Oddjob, Placon, 
Cracker II, Multiplan, dBase 
II, MS Cobol, MS Fortran, 
Pascal/Mt + , CBasic, MBas-ic, 
Art Studio, Tasword 128, Mini 
Office, etc..., y muchos juegos). 
Las colecciones casi completas 
de Amstrad User y AMSTRAD 
Semonal, y varios extras. Todo 
esta en perfecto estado. Lo 
vendo junto o por separado. 
Cesar Carrera Gonzalez. Lope de 
Vega, 4, l.° izqda. 34001 


Palencia. Tel. (988) 74 66 48. 
(Por la tarde). 


Atencion, compro, cambio 
y vendo todo tipo de 
programas para ordenadores 
Amstrad CPC, PWC 8256 y 
PC 1512. Tengo mas de 100 
juegos y programas, 
especialmente para CPC 464, 
472-664 y 6128. Tambien tengo 
para PCW 8256 y para PC 
compatibles. Interesados escribii 
a: Jose Antonio Climent Monzo. 
Paseo de las Germanias, 39, 
Piso 3.°, Pta. 6. a . Gandla 
(Valencia), o llamar al tel. (96) 
286 01 41 todos los dfas de 9 a 
12 de la mahana. Prometo 
contestar a todos lo antes 
posible. 


Intercambio programas para 
PC 1512 y compatibles. No 
vendo ni compro. Mandar lista 
de programas a: Manuel Perez 
Garrido. Perez Medina, 42, 5.° 
B. 03007 Alicante. Tel. (965) 

12 34 15. 


Club Amstrad Manresa. 
Disponemos de mas de 350 
programas. Tenemos todas las 
ultimas novedades tanto de 
gestion como de juegos. 
Interesados escribir a: Jordi 
Momino i de la Iglesia. Ctra. 
Santpedor, 80, 4.°. 08240 
Manresa (Barcelona) o bien 
llamar al tel. (93) 873 02 76. 


Intercambio programas para 

CPC 464, 664, 6128 de 
Amstrad con gente de Madrid 
capital. Tengo unos 50 
programas comerciales. Me 
interesarfa conseguir un 
compilador Cobol para CPC 
464 en cinta y compro, por 
perdida, instrucciones para el 
ensamblador desensamblador 
Gena3-Mona3. Interesados 
llamar al tel. 413 89 76. Carlos o 
escribir a Clavileno, 53. 28002 
Madrid. 
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OS VAMOS DE VACACIONES! 


Se acerca el mes de Agosto. La playa, el 
relax y muchas horns tranquil as nos esperan a 
todos. Amstrad Semanal tambien se hace 
eco del calotuto, y durante el susodicho mes 
de Agosto tendremos solo un numero: el 99. 

Sin embargo, en Septiembre tendran en su 
quiosco habitual el numero 100 de Amstrad 
Semanal. En el celebramos nuestro segundo 
amversario, y por ello ofrecemos un especial 
de 84 pagrnas repleto de actualidad, utilidades 
y soipresas. 

Por ejemplo, hemos hecho lo imposible: 
cambiar los graficos de una sene de juegos 


que pegan y van a pegar muy duro. Asi que el 
Army Moves , Game Over, Spirits, Cray 5, 
Barbarian y otros estan modificado^ a mvel 
grafico de tal manera que m sus propios 
programadores los reconocerian. 

Por otra parte, se acabaron los errores al 
teclear listados en forma de Datas. Nuestro 
programa estrella, el cargador universal, se 
encarga de ello. 

;No se lo pierdan! 

El 1 de Septiembre, el numero 100 
de Amstrad Semanal en su quiosco. 
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INIOBtTES 


Por todo 
lo ancho 


La particularidad del 
archivador de discos que os 
presentamos esta semana estriba 
en que no esta condicionado a 
su utilizacion sobre mesas de 
trabajo de fondo largo, ya que 
para admitir los 40 discos que 
caben en su interior se ha 
recurrido a dtsponerlas en dos 
filas, lo que sin lugar a dudas se 
agradecera mas a la hora de 
acceder a ellos. 

Por su amplitud, permite 
colocar los discos tanto en 
posicion apaisada como en 
vertical, aunque si se guardan 
los discos con su respectiva caja 
se deben mantener en esta 
ultima posicion. 

Para agrupar los discos por 
temas, se dispone asimismo de 
varios separadores, que se 
insertaran sobre el fondo de la 
caja. 

Ademas, para no ser menos, 
tambien cuenta con una 
cerradura de segundad que 
evitara que se pierdan ante la 
visita de amigos envidiosos. 

Su precio, es de 2.912 ptas. 
en Micro-1, C/ Duque de Sesto, 
50, 28009 Madrid, tel.: (91) 

275 96 16. 




Pequena en dimensiones... 
y precio 


Asf es la Brother M-1109, 
una impresora pequena en 
dimensiones y con un precio 
tambien muy reducido, pero, 
eso si, manteniendo la misma 
calidad que caracteriza a la 
gama de impresoras Brother. 

Escribe con un ancho de 80 
caracteres por lfnea en letra tipo 
elite, igual que el resto de las 
impresoras de carro estrecho, 
pero para reducir sus 
dimensiones exteriores se han 


comprimido tanto los 
dispositivos electronicos como 
los mecanicos. 

Cuenta con arrastre del papel 
tanto por friccion para hojas 
sueltas como por traccion para 
papel continuo. De esta forma, 
no hay problemas cuando se 
acabe una de las clases de papel. 

La encontrareis en RAM- 
ROM, C/ Infantas, 21, 28004 
Madrid, tel.: (91) 522 79 78, al 
precio de 59.920 ptas. 


Atrapalos en una red 


Una red local de ordenadores 
consiste en un conjunto de estos 
unidos entre si a traves de 
cables, permitiendo a todos ellos 
la utilizacion de los datos 
contenidos en un disco duro de 
un ordenador conocido como 
servidor de la red, asf como 
compartir los mismos 
recursos,tales como una unica 
impresora, plotter o un modem 
para las comunicaciones. 

Un buen ejemplo de todo esto 
lo tenemos en la red local 
CompNet, fabricada y 
desarrollada en nuestro pats por 
Computer Technology de 
Espaha para ordenadores PC 
compatibles y en particular para 
el Amstrad PC 1512. El 
CompNet utiliza un Sistema 
Operativo especial para la 
utilizacion en sistemas 
multiusuario. 

La red local requiere no solo 


el Sistema Operativo CompNet 
para el ordenador servidor, sino 
ademas una tarjeta especial 
Lana para cada uno de los 
ordenadores que componen la 
red. La red permite hasta 8 
servidores por red, y de 1 a 54 
estaciones conectadas a cada 
servidor. La distancia maxima 
permitida entre nodos es de 7 
km, comunicandose entre ellos a 
una increfble velocidad. 

La comunicacion esta 
soportada por cables de tipo 
coaxial, permitiendo la 
utilizacion de versiones 
multiusuario de las aplicaciones 
muy populares. 

El precio de cada tarjeta 
Lana es de 123.950 ptas. y el 
del sistema operativo en disco es 
de 274.400 ptas., y se encarga 
de su distribution CTE, C/ 
Hernandez Iglesia, 17, 28027 
Madrid, tel.: (91) 408 96 13. 
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Musica maestro 

Una buena medida para 
aguantar el cansancio frente a 
tu ordenador Amstrad durante 
largas horas consiste en 
disponer el documento que se 
esta utilizando tanto para copiar 


como para transcribir en un 
procesador de textos a la altura 
de los ojos, consiguiendo con 
ello un menor movimiento de la 
cabeza. 

Para poner las cosas mas 
faciles aquf os presentamos este 
practico atril que comercializa 
RAM-ROM, C/Infantas, 21, 
Tel : (91) 522 79 78. 28004 
Madrid, al precio de 2.240 
ptas, 

Consiste en un soporte para 
el documento sobre una especie 
de parrilla de varas entramadas, 
soportada por un pie rfgido y 
moldeable que se aguanta sobre 
una pinza que muerde el 
canto de la mesa de 
trabajo. 

Gracias a ese pie, el atril 
adopta cualquier posicion 
deseada por el usuario. 


Regia multiuso 

Dentro de la linea de 
productos Acco de procedencia 
inglesa que se venden en 
Master Computer, Plaza de 
Cristo Rey, 3, esquina a Cea 
Bermudez, 28040 Madrid, tel.: 
(91) 244 59 36, podemos 
destacar esta practica regia 
multifuncion cuyo precio es de 
762 ptas. 

Su uso principal es ayudar al 
programador a realizar 
organigramas, herramienta 
indispensable para los amigos 
del orden y la programacion 
estructurada, pero tambien nos 
puede valer como una sencilla 
regia graduada en centfmetros, 
y ademas como tipometro en la 
composition de textos escritos 
en impresora. 



Seguro de vida 



Los usuarios de los 
Amstrad PC 1512 seguro 
que habran visto infinidad de 
veces en las cajas de sus 
discos que tienen un 
porcentaje libre de error del 
100 por 100, aunque en la 
practica siempre cabe la 
posibilidad de encontrar 
alguno que tenga sectores 
defectuosos y de hecho 
alguna vez se presenta. 

Si esto ocurre, parte de la 
informacion contenida en el 
disco se puede dar por 
perdida. 

Polaroid, una marca que se 
distingue con fuerza en todos 
los campos donde participa, 
tambien lo hace en el terreno 
de los discos de 5 1/4, 
asegurando que sus discos 
son buenos no con el clasico 
rotulo de 100 por 100 libres 
de error, sino 
comprornetiendose a 
recuperar la informacion 
contenida en un disco en 
caso de defectos de 
fabrication. 

Se sirven tanto en cajas de 
carton como de plastico, con 
diez discos en su interior al 
respectivo precio de 2.250 y 
2.500 ptas. en Comercial 
Nuevos Ministenos, en el 
vestibule central de la 
estacion Renfe de Nuevos 
Ministerios. Tel.: (91) 

456 35 58. 
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SerieCPC 


CPC 464 

UNIDAD CENTRAL MEMOR1AS 


f Microprocesador Z80A 64K RAM ampiiables - 
32K ROM ampiiables - 

• CASSETTE • Casse con 

vejocyaide-graljacion (16 2 Kbaudios) 
"controlada desde Basic 

• CONECTORES • Bus PCB multiuso, Umdad de 
Disco exterior paralelo Centronics, salida estereo, 
joystick, lapiz optico, etc 

• SBMINISTRO • Ordenador con monitor verde 
0 color - 8 cassettes con programas - Libro “Guia 
de Referenda BASIC para el programador - 
Manual en castellano - Garantla Oficia, AMSTRAD 
ESPANA 


— Se pueden defimr hasta 8 ventanas de texto y 1 
de graScos 

• SONIDO • 3 canales de 8 octavas tnoduiadas 
mdependientemente-Altavozinterne -ecu’aole- 
Sal. da est&eo 

• BASIC • Locomotive BASIC ampuado en ROM 

- Incluye los comandos AFTER y EVERY para 
control de .nterrupciones 


• TECLADOtTecadopai.osion- 
74: as en 1: loques • Hasia 32 teclas 
programafcies - Teclado redefimble 

• PANT ALLA • Monitor RGB verde (12") 0 color (14") 


TODOPOR 

59.900 Ptas. (monitor verdej 


90.900 Ptas. (monitor color) 


DELEGACIONES: 

Cataiuna: C/Tarragona, 110. Tel. 425 11 11. 08015 Barcelona. Telex 93133 ACEE E. Fax 241 81 94 • Cananas C/Alcalde Ramirez Bethencourt, 17. Tel. 1 ^ 





















' ai te tu regalo 


84.900 Ptas. (monitor verde) 


TOOOPOR 


omprar tu CPC recuerda que hay 
magni'ficos juegos y programas 
de regalo. i Llevatelos! . 


119.900 Ptas. (monitor color) 


IS TU AMSTRAD? 




CPC 6128 


• SUMINISTRO • Ordenador con monitor verde 
o color - Disco con CP/M 22 y lenguaje DR. LOGO 
B“sco cor. CP/M Plus y utilidades Disco con 6 
programas de obsequio Mar .J llano ■ 
Garant'a Oficial AMSTRAD ESP ANA. 


UNIDAD CENTPI1. MLMOR1AS 

• Microprocesador Z80A -12 r' “A(A '^y-lictle 
48 K ROM ampliables. 

• UNIDAD DE DISCO • Unidad incorporada 
para disco de 3" con 180K por cara 

• SISTEMAS OPERATIVOS • AMSDOS. CP/M 
2 2. CP/M Plus (30) 

• CONECTORES • Bus PCB multiuso. paralelo 
Centronics, cassette exterior, 2 a Unidad de Disco, 
salida estereo, joystick, lapiz optico, etc. 


11 33. Telex 96496 TEIC E. 35004 Las Palmas de Gran Canaria • Levante-Murcia: C/ Colon, 4 3°B. 46004 Valencia. Tel. 334 81 00. Telex 64797 JAMI E 
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jmer 

profesional que desee 
integrar un equipo informatico en su 
sistema de trabajo\ acabara por caer en la 
tentacion o la necesidad de un disco duro. 
El Segate puede ser una buena opcion ante esta 

decision de compra. 


E l almacenamiento de datos supone 

siempre la piedra angular de cualquier 
sistema informatico. En el caso de que 
manejemos grandes volumenes de estos, o 
programas que por su dificultad exijan la 
utilization continua de discos, la necesidad de 
utilizar un disco duro, o fijo, que dirfa IBM, se 
hace incuestionable. 

En esta ocasion ha pasado uno de los modelos 
que existen en el mercado y que viene 
perfectamente preparado para ser moritado 
directamente en un PC Amstrad, con la 
particularidad de que en el kit de montaje se 
incluye un ventilador que ayudara a mantener 
refrigerada la unidad central de su PC. 

Durante los dias en que tuvimos montado el 
disco Segate sobre nuestro ordenador, el 
funcionamiento fue totalmente correcto, 
observandose una considerable diminution en los 
tiempos de acceso. Asf, en algunas pruebas 
realizadas pudimos observar tiempos de 40 
segundos, para el caso del disco flexible, contra 30 
segundos en el caso del disco duro. 

La capacidad global del disco, punto clave junto 
a su tiempo de acceso, alcanza la cifra de 20 
megabytes, lo que supone un equivalente 


aproximado de 60 discos flexibles de los que 
actualmente utiliza el Amstrad CPC. No obstante, 
esta comparacion es engahosa, ya que no solo 
tendremos la capacidad de estos 60 discos, sino 
que podremos soportar ficheros de una extension 
superior a 360 K, lirnite para el caso de los floppy, 
aparte de poder trabajar con toda esta capacidad 
sin practicamente ocuparnos de su orden y 
mantenimiento. 

La instalacion de este disco duro es realmente 
sencilla, aunque usted siempre puede optar por 
que se lo monte su distribuidor si no esta muy 
habituado al uso del destornillador. 

Lo primero que debera hacer es desmontar la 
unidad central totalmente desconectada de la red, 
desatornillando los tornillos que se encuentran en 
la parte superior y los que sirven de sujecion a la 
unidad central. Despues siga los pasos explica’dos 
en la secuencia de fotos y estamos convencidos de 
que no debe haber ningun problema 

La tarjeta controladora admite configuraciones 
distintas a la de un unico disco duro de 20 megas. 
No obstante, el distribuidor solo pudo facilitarnos 
la information sobre esta. Es probable, solo 
probable, que esta admita incluso el trabajo con 
otro disco duro o con otro periferico distinto, 
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En la parte izquierda sera donde se ubique la unidad de disco. Alii 
fijaremos el soporte con el ventilador hacia abajoy el cable miran- 
do hacia la parte trasera. 


El disco duro se fijara al soporte metalico, con la etiqueta hacia 
arriba, mediante tornillos. Despues realizaremos las conexiones tal 
y como puede observarse en la fotografia. 


Todo el kit suministrado por Sermicro: la tarjeta controladora, el 
ventilador, el soporte de la unidad, los dos conectadoresy el disco 
duro, listos para ser montados. 



En el caso de tener dos unidades de disco, debera cambiar las car- 
casas metdlicas, ya que la unidad A debera quedar al lado derecho, 
al contrario de como viene instalada. 



La conexion del ventilador se realiza a la toma de 12 voltios, si- 
tuada alfondo de la placa central, justo a la derecha de la salida 
de monitor El cable rojo debera conectarse en la patilla derecha. 



Para la configuracion entregada, disco duro de 20 Megas, ha- 
bra que puentear en la posicion XV2, tal y como puede apre- 
ciarse. 
















































Insertar la tarjeta en cualquiera de los slots libres. La unica pre¬ 
caution que deberemos tomar es cogerla siempre por sus hordes, 
no tocando ni sus componentes ni sus pistas. 



Ahora deberan conectarse los cables a la placa. Para ello debere¬ 
mos hacer coincidir la flecha grabada en el conector con la patilla 
1 marcada en la tarjeta. 




Elg* m»d» Ivstpimte: 
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El esraen total *1 disco es fill eilmdnr,. 


Mse ESC Nra uolver il mu de FDI9L 



bna vez montado y cerrado el equipo, habra que formatear y realizar la partition del disco. Para ello primero deberemos meter en 
la unidad A el sistema operativo y ejecutar el programa FDISK; lo usual es que destine toclo el disco a MS-DOS. Ahora ya puede 
formatear su disco duro con la orden FORMAT (.:/ S. A partir de este momento tiene todo el tiempo del rnundo para intentar llenar 
sus 20 megas. 


aunque esto, insisto, entra tan solo en el terreno 
de la hipotesis y es algo que nosotros no hemos 
podido comprobar. 

Para conseguir la configuration de 20 megas no 
hay que olvidar realizar el puente con los 
conmutadores previstos en la parte derecha de la 
placa, sobre la position W2. El resto de los 
conmutadores puede dejarlos tal y como estan, 
solo con ana patilla metida, o si lo prefiere, puede 


retirarlos. 

La conclusiones finales sobre el funcionamiento 
de este disco son verdaderamente buenas: alta 
capacidad y bajo tiempo de acceso, aunque se le 
puede achacar que en el caso de que usted decida 
montarlo por si mismo, y a pesar de la sencillez 
de este pequeno bricolage, no encontrara en el kit 
ningun manual de instrucciones sobre este 
respect o. 



La gran estrella del kit: el ventilador que reduce la temperatura 
del propio disco duro. 





PC DD 


FICHA TECNICA 

Fabricante: 

Segate 

Distribuye: 

Sermicro 

Direction: 

Avda. Ramon y Cajal, 107 

Precio del disco 


(con controlador): 

81.760 ptas. 

Precio del kit completo 


(incluye ventilador): 

87.360 ptas. 

Precio del montaje: 

4.480 ptas. 
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